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ABSTRACT 


THIS DIAGNOSTIC PROGRAM IS CAPABLE OF TESTING EITHER THE DR11W 
OR THE DR11B NPR GENERAL INTERFACE. 


T HAS THE FOLLOWING FEATURES: 


I 
1. ACT11/XXDP COMPATIBLE 
2. MULTIPLE BOARD TESTING USING TABLE CREATED BY USER 
3. BURST DATA LATE CALIBRATION 
4. INDEPENDANT ‘LOGIC WRAP-AROUND’ AND 

"CABLE WRAP-AROUND’ TESTING 


REQUIREMENTS 


CEQUIPMENT J 


1. PDP11 STANDARD COMPUTER 
2. I1/0 TYPE TERMINAL 

3. DR11-W 

4. LOOP BACK CABLE (OPTIONAL? 


CSTORAGE J 
THE PROGRAM USES 4600 WORDS OF MEMORY 
TESTING MODES 


CDEF INJ TION] 
THE DR11wW DIAGNOSTIC PROVIDES TWO INDEPENDANT MODES OF LOGIC TESTING: 


1. MAINTENANCE MODE TESTING 
2. CABLE MODE TESTING 


IN CONTEXT OF THE DIAGNOSTIC, "MAINTENANCE MODE TESTING’ 

1S DEFINED AS TESTS WHICH ARE PERFORMED WITH BIT 12 e THE CSR SET. 
THIS RESULTS IN ‘LOGIC WRAP-AROUND’ WHICH ALLOWS TESTING 

WITHOUT A USER DEVICE OR PHYSICAL CABLE. LOGIC WRAP-AROUND 

CHECKS ALL LOGIC FUNCTIONALITY EXCEPT MODULE CONNECTORS,CABLES, 

AND 1/0 DRIVERS AND RECEIVERS. ‘CABLE MODE A eal , THEREFORE , CHECKS 
ALL THESE THAT THE LOGIC WRAP-AROUND DOESN’ 


CIMPLEMENTAT ION] 
THE TWO MODES OF TESTING ARE INVOKED AS FOLLOWS: 
1, THE PROGRAM WILL ALWAYS DO THE MAINTENANCE MODE 


TESTS(LOGIC WRAP-AROUND ) 


SEQ 0003 
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2. IF SWITCH REGISTERS 9 AND 10 ARE 0, THEN THE PROGRAM 
WILL AUTOMATICALLY CHECK IF THE PHYSICAL WRAP-AROUND 
CABLE IS IN PLACE. IF IT IS, ‘CABLE TESTS ° 
WILL BE DONE. IF NOT,CABLE TESTS ARE SKiPPED. 


NOTE: STEP 2 CAN BE ALTERED BY USING 
SWITCH REGISTERS 9 OR 10. SEE SECT. 5.1 


LOAD AND START PROCEDURE 


1. LOAD PROGRAM INTO MEMORY 
2. LOAD STARTING ADDRESS 200 
3. PRESS START=SEE SECT 7.0 FOR OPERATING MODES 


SOFTWARE SWITCH REGISTER 


COPT IONS) 
SWITCH OCTAL FUNCTION 
Sw15=1 100000 HALT ON ERROR 
SW14=1 040000 LOOP ON TEST 
SW13=1 020000 INHIBIT ERROR TYPEOUTS 
SW11=1 004000 INHIBIT ITERATIONS 
SW10=1 002000 PERFORM MAINT. MODE (INTERNAL 
LOGIC WRAP-AROUND) TESTS ONLY 
SWO9=1 001000 PERFORM CABLE MODE TESTS UNCONDI TIONALLY 


(DO NOT ALLOW PROGRAM TO DECIDE 
WHETHER CABLE IS IN ) 
SwO8=1 000400 AFTER vy Rage OF ERROR 
DURING A PASS OF PROGRAM,JUMP TO THE NEXT 
BOARD SPECIFIED IN TABLE FOR TESTING. 


CIMPLEMENTAT IONJ 


IF THE DIAGNOSTIC IS RUN ON A CPU WITHOUT A SWITCH 

REGISTER THEN A SOFTWARE SWITCH REGISTER IS USED WHICH ALLOWS 
THE USER THE SAME SWITCH OPTIONS AS THE HARDWARE SWITCH REGISTER. 
IF THE HARDWARE SWITCH REGISTER DOES NOT EXIST OR IF ONE DOES 
AND IT CONTAINS ALL ONES (177777) THEN THE SOFTWARE SWITCH 
REGISTER (LOC. 176) IS USED. 


[CONTROL J 


THIS PROGRAM SUPPORTS THE DYNAMIC LOADING OF THE SOFTWARE SWITCH REGISTER 
(LOC 176) FROM THE TTY. THIS IS ACCOMPLISHED AS FOLOWS: 


1. TYPE CONTROL G <*G>;THIS ALLOWS THE TTY TO ENTER DATA INTO 
LOC. 176 AT SELECTED POINTS WITHIN THE PROGRAM. 


2. THE MACHINE WILL TYPE: SWR=XXXXXX NEW (XXXXXM IS THE OCTAL 
CONTENTS OF THE SOFTW. SWITCH REGISTER) 


3. AFTER THE ‘NEW=" THE OPERATOR CAN DO ONE OF THE FOLLOWING: 


SEQ 0004 


CZDRLAO=DR1 iW GEN NPR INTFC 


Saue 


NOMENON MNNoNNPY 
ee ed ed ad ot od td 
DONAURWN-O 


9 
220 
221 


MACRO M1111 


5.4 


6.0 


7.0 


~ 
24=SEP=79 7:39 PAGE 4-2 


A. TYPE A NUMBER TO BE LOADED INTO LOC. 176 FOLLOWED BY A <CR> 
(ONLY NUMBERS BETWEEN 0-7 WILL BE ACCEPTED AND ONLY 6 NUMBERS 
WILL BE ALLOWED). 

IF A <CR> IS THE FIRST ENTRY THE SOFTWARE SWITCH REGISTER WILL 
NOT BE CHANGED. 


B. IF A CONTROL U <*U> IS DEPRESSED THE PROGRAM WILL GO BACK 
TO STEP 2. 


LPROGRAM AND/OR OPERATOR ACTION] 


LOADING AND STARTING AT 200 WITH ALL SWITCHES DOWN 
IS NORMAL LOGIC TESTING. IF AN ERROR 

IS DETECTED HERE, THERE WILL BE A PRINTOUT. WHEN 
AN ERROR IS DETECTED AND IT IS NECESSARY TO SCOPE 
ON IT, PLACE SW15 UP TO HALT ON ERROR, THEN SW14 UP 
TO LOOP ON ERROR, THEN SW13 UP TO DELETE PRINTOUTS. 


ERROR REPORT ING 


DEPENDING ON WHICH BOARD IS BEING A aa THE STATUS PRINTOUT WILL 
REFLECT EITHER THE DR11W OR THE DR11B. 


ALL ERRORS ARE ACCOMPANIED WITH THE FOLLOWING PRINTOUT: 
TESTNO ERRPC PSW  DR11W/B STATUS 


WHE RE 
TESTNO -TEST NUMBER WHERE ERROR OCCURRED 
ERRPC - LISTING ADDRESS WHERE THE ve WAS DETECTED 
-PROCESSOR STATUS WORD AT ERROR TIME 


PSwW 
DR11wW/B STATUS -CONTENTS OF DR11W/B CONTROL STATUS 
REGISTER AT ERROR TIME 


OPERATING MODES 


[MANUAL MODE J 
DEFINED AS NON-AUTOMATIC USE OF DIAGNOSTIC.FOR EXAMPLE: 


A.LOADING PROGRAM VIA PAPER TAPE 
B.LOADING FROM XXDP PACKAGE VIA KEYBOARD 
C.REQUESTING A PROGRAM FROM ACT11 VIA ACT11 STATION SWITCHES 


ONLY UNDER MANUAL MODE DOES THE DIAGNOSTIC OFFER “BURST 
DATA LATE* CALIBRATION AND ‘MULTIPLE BOARD ° DIALOGUE. 
AFTER LOADING PROGRAM, DEPOSITING SA 200, AND PRESSING 
START, THE PROGRAM 7YPES THE FOLLOWING(NOTE:USER INPUT 
1S UNDERSCORED): 
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SEQ 0006 

263 DO YOU WISH “aie DATA LATE CALIBRATION? 
264 (Y=YES,N=NO) 
265 - 
266 
267 DO YOU WISH MULTIPLE BOARD DIALOGUE? 
268 (Y=YES,N=NO) N 
269 re 
$f 
272 IF SOF TUARE SWITCH REGISTER IS INVOKED, THEN THE FOLLOWING WILL BE 
273 PRINTED 
274 
3% SWR=XXXXXX NEW= 

6 
ied (REFER TO SECT. 5.0 FOR OPERATOR OPTIONS) 
279 ANSWERING "NO" TO THE ABOVE QUESTIONS(AND ASSUMING THAT 
280 MULTIPLE BOARD SIZING HAD NOT BEEN PREVIOUSLY DONE) THE 
281 PROGRAM DEFAULTS TO ONE BOARD TESTING SPECIFIED BY REGISTER 
282 ADDRESS '"DEFRAD'(172410) AND VECTOR ADDRESS ‘DEFVAD'(124). THE 
385 PROGRAM THEN TYPES: 
285 *BRD ADDR.: 172412 
288 IF NO SWITCH REGISTER OPTIONS ARE SELECTED THE PROGRAM 
289 WILL "END PASS" THE FIRST TIME WITH NO ITERATIONS. SUBSEQUENT 
290 "END PASS' WILL BE WITH ITERATIONS. 
599 | 
293 THE ‘END PASS* TYPEOUT IS AS FOLLOWS(IN THE CASE OF MAINT MODE TESTING): 
295 TEST MODE: MAINT MODE ONLY 
296 END PASS # XXXXXX 
297 
298 
299 
300 7.1.1. [MANUAL MODE W/MULTIPLE BOARD FEATURE] 
302 THE DIAGNOSTIC CONTAINS AN INTERACT IVE MONITOR WHICH 
303 ALLOWS THE USER TO CREATE AND MODIFY A TABLE DESCRIBING 
304 UP TO 16 BOARD REGISTER AND VECTOR ADDRESSES FROM WHICH THE PROGRAM 
305 WILL SUBSEQUENTLY RUN. THE PROGRAM WILL SEQUENTIALLY RUN THRU EACH BOARD 
306 DESCRIBED IN THE TABLE FOR ‘ENDPAS #1° AND THEN DO THE SAME FOR “‘ENDPAS #2° ETC. 
307 ALL BOARDS FOR ‘ENDPAS #1° EXPERIENCE TESTING WITH NO ITERATIONS. THUS, 
308 TYPING ''Y'' TO THE QUESTION 'DO YOU WISH MULTIPLE BOARD DIALOGUE?’ ENTERS 
309 THE USER INTO THE MULTIPLE BOARD MONITOR WITH THE PROMPT ‘‘="' TO WHICH THE 
310 FOLLOWING COMMANDS MAY BE TYPED: 
312 
313 
314 *"L " = LIST PRESENT MULTIPLE BOARD TABLE 
315 ' — * = EDIT PRESENT MULT BRD TBL 
316 *" R * = START PROGRAM TESTING 
318 AT ANY POINT DURING PROGRAM RUN A ‘RUN SUMMARY’ MAY BE RECEIVED 
319 BY TYPING A ‘CONTROL S' <*S>. THE PROGRAM WILL DETECT 
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THE “S AND PRINT: 


BOARD PASCNT ERRCNT 
WK OK KK 
YOOOOGK OOK XXX 


a3 ¢ ETC. ETC. 
WHERE : 
BOARD - LISTING OF ALL BOARD REGISTER ADDRESSES SPECIFIED 
IN MULTIPLE BOARD TABLE 
PASCNT - # PASSES DONE ON EACH BOARD SPECIFIED 
ERRCNT - # OF PASCNT'S WHERE ONE OR MORE ERRORS WERE DETECTED 


[MANUAL MODE W/BURST DATA LATE CALIBR.J 


THE DIAGNOSTIC CONTAINS A ROUTINE WHICH AIDS THE USER 

IN "BURST DATA LATE* CALIBRATION. AS STATED IN THE DR11-W 

ENGINEERING SPECIFICATION, THE ‘BURST DLT* MULTIVIBRATOR 

TIME OUT MUST BE CALIBRATED SO AS TO BE COMPATIBLE WITH 

THE USER DEFINED TRANSFER RATE IN BURST MODE OPERATION. 

EFFECTIVELY, THE PROGRAM SOFTWARE ROUTINE SETS THE CYCLE BIT IN THE CSR 
OF TH DR11W, FOLLOWS WITH A DELAY, AND THEN CLEARS THE CYCLE BIT 

THIS CONTINUES REPEATEDLY UNTIL THE USER HALTS THE CPU. THUS, WHEN THE 
USER SUBSEQUENTLY ATTACHES A SCOPE PROBE TO E88-6 ON THE DR11-wW (REFER 
TO PRINT SET M8716-0-1) A POSITIVE PULSE WILL BE OBSERVED. THE PULSE 
SHOULD BE SET BETWEEN 5-30 US. BY ADJUSTING POT. R88. 


THEREFORE, ANSWERING ‘Y' TO THE QUESTION: "DO YOU WISH 
BURST DATA LATE CALIBRATION?" WILL RESULT IN THE FOLLOWING PRINTOUT: 


BURST DATA LATS CALIBRATION IN PROGRESS. 
ATTACH SCOPE PROBE. 
TO ABORT THIS ROUTINE, HALT PROCESSOR... 


THE CALIBRATION ROUTINE WILL FUNCTION ON ONE BOARD SPECIFIED 
BY ‘DEFRAD'(172410) AND 'DEFVAD'(124). 


CAUTO MODE J 


DEFINED AS USING THE PROGRAM IN A SITUATION OF SEQUENTIAL 
EXECUTION OF TWO OR MORE PROGRAMS ACCORDING TO A PREDETERMINED SEQUENCE 
AND WITHOUT OPERATOR INTERVENTION. 


AUTOMATIC MODES ARE: 
A. ACT11 QUICK VERIFY 


B. ACT11 AUTO ACCEPT 
C. MXDP CHAIN MODE 


SEQ 0007 
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SEQ 0008 


}a4 att bat oe ane deeee THE FOLLOWING RUN CHARACTERISTICS WHEN 
389 A. THE PROGRAM WILL TEST ONLY ONE BOARD SPECIFIED BY "DEFRAD’ 
382 AND 'DEFVAD'. 

3B B. THE FOLLOWING WILL NOT BE OFFERED TO THE USER: 


386 

387 1. BURST DATA LATE CALIBRATION 
388 2. MULTIPLE BOARD DIALOGUE 

389 3. RUN SUMMARY <*S> 


44 8.1 CRESTARTING PROGRAM IN CORE] 

397 WHENEVER THE PROGRAM IS HALTED AND RESTARTED AT SA 200, ALL HISTORY OF PREVIOUS 
398 TESTING IS LOST. HOWEVER, THE MULTIPLE BOARD TABLE AS PREVIOUSLY 

to EDITED IS LEFT INTACT. IT WILL REMAIN INTACT UNTIL: 


401 1. ANOTHER PROGRAM IS LOADED INTO CORE 
ant 2. THE USER RE-EDITS THE TABLE 


404 8.2 [POWER FAIL 


406 THERE IS NO RESTART MESSAGE NOR PROVISIONS FOR AUTOMATICALLY 
407 RESTARTING PROGRAM UPON POWER UP. IF NON VOLATILE MEMORY, THEN 
408 RESTART AT SA 200. 


410 9.0 EXECUTION TIMES 


i ON A PDP11/04: 
415 . MAINT MODE ONLY/NO ITER.: APPROX. $5 


1 EC 
2. MAINT MODE ONLY/WITH ITER.: APPROX. 35 
417 3. MAINT & CABLE MODE/NO ITER. : APPROX. 7 
4. MAINT & CABLE MODE/WITH ITER.: APPROX. 6 


422 10.0. SUBROUTINE ABSTRACTS 


Oar) eee ete Cy mee 

428 THIS SUBROUTINE CALL IS PLACED BETWEEN EACH SUBTEST 
429 IN THE INSTRUCTION SECTION. IT RECORDS THE STARTING 
430 ADDRESS OF EACH SUB-TEST AS IT IS BEING ENTERED. 
43) IF A SCOPE LOOP IS REQUESTED, IT WILL JUMP TO THE 
432 START OF THE SUBTEST THAT THE SCOPE 


LOOP IS RE- 
433 QUESTED FOR. IF SCOPE LOOP IS NOT REQUESTED, THERE 
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WILL BE EITHER A FIXED OR RANDOM NUMBER OF ITERATIONS 
ON THAT SUBTEST BEFORE THE NEXT SUBTEST IS ENTERED. 
SWITCH 11 ON A 1 INHIBITS ITERATION OF SUBTESTS. 
NOTE: SUPPORTS “G ROUTINE FOR DYNAMIC LOADING 

OF SOFTWARE SWITCH REGISTER 


IS _A ROUTINE THAT PRINTS-OUT AN ADDRESS THAT TAGS 
THE FAILING SUBTEST,THE CP STATUS REGISTER AND 
THE DR11W STATUS _REGISTER AT THE TIME OF FAILURE. 
NOTE: SUPPORTS “G ROUTINE FOR DYNAMIC LOADING 
OF SOFTWARE SWITCH REGISTER 


THE INBUF BUFFER IS LOADED WITH AN INCREMENTING 
PATTERN (0,1,2,3,...) BEGINNING AT THE STARTING 
ADDRESS OF INBUF. THE NUMBER OF WORDS LOADED IS 
DETERMINED BY THE CONTENTS OF BUFLEN. 


THE CHKBUF BUFFER IS LOADED wy A MODIFIED 
INCREMENTING PATTERN (0,0,2,2.4.,4.6.6,...) 
ae AT THE STARTING ADDRESS OF CHKBUF . 

THE NUMBER OF WORDS LOADED IS DETERMINED BY THE 
CONTENTS OF BUFLEN. THIS BUFFER IS LOADED ONLY 
FOR TESTS WHICH USE THE MAINTENANCE MODE OF THE 
DR11-W WHICH HAS A SPECIAL ALTERNATING DATI-DATO 

SEQUENCE OF OPERATION. 


INTA 

THE IE BIT IS CLEARED IN THE CSR THEN THE CSR 

IS CHECKED FOR THE ABSENCE OF AN ERROR AND THE 

PRESENCE OF READY. THE WCR IS CHECKED TO SEE 

THAT IT IS EQUAL TO ZERO. THE CORRECT CONTENTS 

OF ~ ,. ‘ CALCULATED AND CHECKED. THERE 

IS A JSR TO THE NORMAL SUB-ROUTINE BEFORE THIS 

ROUTINE IS EXITED. THE PROGRAM WILL HALT IF 

a aie READY IS CLEAR, OR READY AND ERROR 
L * 


DAT CHK 

THIS ROUTINE IS ENTERED 10 CHECK INBUF AFTER 

A MAINTENANCE MODE OPERATION. THE CONTENTS OF 
INBUF AND THE CONTENTS ue CHKBUF ARE CHECKED TO 
SEE THAT THEY ARE THE S THE NUMBER OF C 
ai MADE IS DETERMINED BY THE CONTENTS OF 


" NTERED FROM INTA AND FROM SOME 


THE ROUTINE 
CH USE INTA. THE NUMBER OF 


IS 
TESTS WHICH DON'T 
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THE DRINV+2 IS PUT INTO DRINV AND THE DRVS IS 
CLEARED. IF THE DR11-W INTERRUPTS UNDER THESE 
CONDITIONS THE PDP=11 WILL HALT AT DRVS._ THE 
PROCESSOR STATUS WORD IS RESTORED TO LEVEL 7 AND 
THE ROUTINE IS EXITED. 


10.8 DATOCK 


AFTER A STRING OF DATO'S HAS BEEN COMPLETED THIS 
ROUTINE CHECKS THAT THE CORRECT DATA PATTERN 
(52525) WAS TRANSFERRED TO INBUF. THE NUMBER 

OF COMPARISONS MADE IS DETERMINED BY THE CONTENTS 
OF BUFLEN. AN ADDITIONAL CHECK IS MADE ON BUFLEN*2 
TO INSURE THAT TOO MANY WORDS WEREN'T TRANSFERRED. 


10.9 ERRCHK 


THIS ROUTINE CLEARS IE AND HALTS IF ERROR IS SET. 


10.10 TRAPCATCHER 


THIS IS A SERIES OF INSTRUCTIONS STARTING AT LOCATION 0 
DESIGNED TO DETECT AND ISOLATE UNEXPECTED TRAPS AND 
ae TO THE TRAP AND INTERRUPT VECTOR AREA OF 


EACH VECTOR ENTRANCE ADDRESS IS LOADED WITH THE ADDRESS 
OF THE NEXT LOCATION. THE NEXT LOCATION IS LOADED WITH 
A HALT (000000). THUS AN ILLEGAL TRAP OR INTERRUPT WILL 
CAUSE A HALT AT THE TRAP LOCATION PLUS TWO. 


IF A HALT OCCURS IN THE TRAP OR INTERRUPT AREA, EXAMINE 

REGISTER SIX, IT WILL CONTAIN THE CURRENT STACK ADDRESS. 
THE CONTENTS OF THE CURRENT STACK ADDRESS IS THE VALUE OF 
THE LOCATION COUNTER WHEN THE TRAP OR INTERRUPT OCCURRED. 


CUSING MULTIPLE BOARD FEATURE (REFER TO SECT. 7.1.1)] 


(USER LOADS PROGRAM AND STARTS AT 200) 
DR11-W GEN NPR INTFC 


DO YOU WISH ast DATA LATE CALIBRATION? 
(Y=YES, N=NO): N 


DO YOU WISH ri ee BOARD DIALOGUE? 
(Y=YES, N=NO): 


SEQ 0010 
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SEQ 0011 


NO. BOARDS REQUESTED FOR TESTING: 1 


BOARD# REGSTR. 
1 172610 
= £ 


HOW MANY BOARDS DO 


BOARD 1 
REGISTER ADDRESS: 
VECTOR ADDRESS: 


BOARD 2 
REGISTER ADDRESS: 
VECTOR ADDRESS: 


BOARD 3 
REGISTER ADDRESS: 
VECTOR ADDRESS: 

L 


BOARD # REGSTR. 
1 172410 
2 172430 
3 =6172450 


VECTOR 
000124 


YO WANT TO 


172410 
000124 


000000 
000000 


000000 
000000 


VECTOR 


000124 
000170 
000174 


TEST? 3 <CR> 


— <=--(USER INPUTS <CR>:CONTENTS STAY SAME) 
<CR> 


172430 <CR> <=--( 0 CONTENTS ARE CHANGED) 
170 <CR> 


172450 <CR> 
174 <CR> 


(PROGRAM NOW RUNS USING MULT. BOARD TABLE) 


*BRD ADDR.: 172410 
TEST MODE: r eee . CABLE 


END PASS 


*BRD ADDR.: 172430 
TEST MODE: - red . CABLE 


END PASS 


*BRD ADDR.: 172450 
TEST MODE: me . CABLE 


END PASS 


*BRD ADDR.: 172410 
TEST MODE: MAINT & CABLE 
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END PASS 4 2 
*BRD ADDR.: 172430 


TEST MODE: MAINT & CABLE 
END PASS a 2 


*BRD ADDR.: 172450 


TEST MODE: MAINT & CABLE 
END PASS a 2 


ETC. 


(AT ANY TIME USER MAY REQUEST ‘RUN SUMMARY" BY TYPING “S) 


“Ss 

RUN SUMMARY..... 

BOARD PASCNT = ERRCNT 
172410 10 0 
172430 10 0 
172450 9 0 


(AFTER RUN SUMMARY ,PROGRAM RESTARTS 
AUTOMATICALLY AT SA 200) 


CZDRL DR11-W GEN NPR INTFC 


‘DO YOU WISH BURST DATA LATE CALIBRATION? 
(Y=YES, N=NO): N 


ETC. 


SEQ 0012 
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SEQ 0013 
12.0 PROGRAM SUMMARY 
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SEQ 0014 


672 - TITLE a rset GEN NPR INTFC 
;*COPYRIGHT (C) 1979 
>*DIGITAL EQUIPMENT CORP. 
; *MAYNARD , MASS. 01754 


: #PROGRAM BY JOHN W. CIUKAJ 


STHIS PROGRAM WAS ASSEMBLED USING PDP=11 MAINDEC SYSMAC 
>*PACKAGE (MAINDEC-11-DZQAC-C3), JAN 19, 1977. 
** 


$TN=1 
$SUR=160000 7 7HALT ON ERROR, LOOP ON TEST, INHIBIT ERROR TYPOUT 
NOP=00024 


B1T15=100000 
BUSERR=000004 


DSTATC=4000 
MAINT=10000 
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777 006 
778 001010 
779 

780 001012 


020000 
040000 
100000 
000200 
022404 
000034 


000004 
177570 
177570 
000060 


023737 
001415 
012702 
004737 


000410 
012702 


022404 
000572 


000042 


014646 
015372 


014646 


015372 
020540 
017256 
001200 
001364 
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000046 


ATTN=20000 


STACK=BUF F 
TRAPVE C=34 


ERRVEC=4 
DSWR=177570 
DDISP=177570 
TKVEC=60 
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;LOAD TRAP CATCHER INTO 0 THRU 777. 


“eet 


MOV #STACK, SP 
aPSw 
aF42 


ARE WE IN AUTO MODE 

IF NOT,DO TITLE,CALIBRATION 
ZAND MULTIPLE BOARD SIZING 
21S THIS ACT11 AUTO MODE 
TIF SO ,DON'T PRINT TITLE 


MOV AM$TITLE,R2 


hy PCT 
1$: MOV A$TITLE,R2 sPRINT THE TITLE 
JSR PC, TTOUT 
JSR PC BRSTDiL ;BURST DATA LATE CALIBRATION? 
JSR PC ,.MBD ;MULTIPLE BOARD DIALOGUE 
2$ CLR FLAG 
~ ; 
SR: 177570 
PSW: 177776 
DEFRAD: 172410 ;DEFAULT REGISTER ADDRESS 
DEF VAD: ;DEFAULT VECTOR ADDRESS 
PNTRAD: sPOINTER INTO MULTIPLE BOARD TABLE SPECIFYING 
: CURRENT REGISTER ADDRESS BEING TESTED 
PNTVAD: O ;POINTER FOR VECTOR ADDRESS 


SEQ 0015 


781 001014 


$3 
88 


ees 
8888 
RSREVSEE 


SESRoR 


nA? Pm PPP HP PV HHH HH 
SSPRIATF 


Oo 0d 00 00 00 C0 00 
—_— oO es es I 
QUsWN oO 
BRIBE 
Ono Nm 


R 


RRSSe 
ad anh od 
—OOON 
a ak aah cad ad ad ath cat ah ced cad cal cae ca ca cd ca ee ed ce cae cee ca en ee 


SS8S8888S8SsSSsssssss 


BR 
Wr 

8 
WWW 
ah ad od od 
ARNO 


343 
837 001344 
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177570 


377 


24-SEP-79 10:39 


MACRO M1111 
PNTPAS: 0 
PNTERR: 0 
PRGCYC: 0 
QTYBRD: 1 
REGADR: 172410 
-BLKW 
WCR: 172410 
BAR: 172412 
CSR: 172414 
BDR: 172416 
DRINL: 240 
VECADR: 124 
~BLKW 
DRINV: 24 
DRVS: 126 
EIR: 0 
BORW: 
NPR1: $2525 
DIOMEM: 173000 
INBUF: XINBUF 
CHKBUF : XCHKBU 
BUFLEN: HALT 
LENCHK: HALT 
BRWAIT: HALT 
WCLEN: HALT 
RDYCHK: HALT 
TKS: 177560 
TKB: 177562 
TPS: 177564 
TPB: 177566 
FLAG: 0 
FNCCNT: HALT 
INBUF 1: HALT 
PASCNT: 0 
-BLKW 
ERRCNT: 0 
-BLKW 
TEMP: 0 
TEMP2: 0 
TIME: 0 
CABLE: 0O 
HLTDET: 0 
TESTNO 4 
DISPLAY: .WORD 
: 177570 
$TKS: 177560 
$TKB: 177562 
$TPS: 177564 
$TPB: 177566 
Lis BYTE 
SFILLS: .BYTE 
SFILLC: .BYTE 
STPFLG: .BYTE 


377 $BELL: 


eASCI2 





D2 
PAGE 6-2 


;POINTER INTO PASCNT TABLE 

;POINTER INTO ERROR COUNT TABLE 

; COUNTER TO TRACK WHEN ALL BOARDS ARE TESTED 
; TOTAL # DR11W BOARDS BEING TESTED 


3. ; TOTAL: 16 LOCATIONS FOR BOARD ADDRESSES 


15. ;TOTAL:16 LOCATIONS FOR VECTOR ADDRESSES 


; TEMP STORAGE FOR CSR #2 ‘ERROR IND. REG) 


;NUMBER OF PASSES COMPLETED: 16 BOARDS 


15. 
* :ERROR COUNT TABLE:16 BOARDS 
; : TEMPORARY STORAGE 

TEMPORARY STORAGE 
“GENERAL PURPOSE TIMER 
“CABLE MODE TO BE DONE?:0=NO,1=YES 
“FLAG THAT AN ERROR OCCURRED DURING PROGRAM PASS 
“SPECIFIES TEST # FOR ERROR PRINT 
°GEN'L PURPOSE LOOP COUNTER 

DDISP 

0 

2 

ae 

<207><377><377> 


SEQ 0016 
























001347 000 
838 001350 077 
839 001351 015 
0 001352 O12 
841 001354 377 
843 001360 000000 
Bre 001362 000000 
846 001364 
001364 012706 


001370 012737 
0013576 012737 


001404 013746 


001442 03 
001444 012716 
001450 


CZDRLAO=DR11W GEN NPR INTFC 


000 
377 


022404 
017176 
000340 


000042 
014250 


001316 
001020 


001020 


MACRO M1111 


000 


000034 
000036 


000004 


001326 


001022 


ANSWER: 
BDFAIL: 


SUSWR : 
. SBTTL 


MOV 
eet A FEW VECTORS 
HSTRAP, 





E 2 Sgn 
24=SEP=79 10:39 PAGE 6-3 
SEQ 0017 


INITIALIZE THE COMMON TAGS 
#STACK, SP 33SETUP THE STACK POINTER 


@ATRAPVEC ;;TRAP_VECTOR FOR TRAP CALLS 


ZSIZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS 
* TEQUAL i. A ''=1"', SETUP FOR A stig SWITCH REGISTER. 


64$: 
65$: 
66$: 


BEGIN: 


@#ERRVEC ,-(SP) : SAVE ERROR VECTOR 


MOV #64$ , AAERRVEC SET UP ERROR VECTOR 

MOV ADSWR , SWR : SETUP FOR A HARDWARE SWICH REGISTER 

MOV #DDISP DISPLAY si HARDWARE DISPLAY REGISTER 

CMP #-1,aSWR ;TRY TO REFERENCE HARDWARE SwWR 

BNE 66$ [:BRANCH IF NO TIMEOUT TRAP OCCURRED 
3 THE HARDWARE SWR IS NOT = -1 

BR 65$ ; BRANCH IF NO TIMEOUT 

as #65$, (SP) SISET UP FOR TRAP RETURN 

MOV A#SWREG, SWR ;;POINT TO SOFTWARE SWR 

MOV #DISPREG, DISPLAY. 

MOV (SP)+,@#ERRVEC ;;RESTORE ERROR VECTOR 

MOV #REGADR , PNTRAD : SETUP POINTERS IN BOARD TABLES 


MOV #VECADR ,PNTVAD 
MOV #PASCNT,PNTPAS ; 


MOV #340, @#TRAPVEC+2;LEVEL 7 
| 
MOV #ERRCNT ,PNTERR | 


MOV #PASCNT RO ;CLEAR PASS COUNT TABLE 
MOV #16.,R1 

CLR (RO) + 

DEC R1 

BNE 1$ 

MOV ~ gay Cie 7CLEAR ERROR COUNT TABLE 


CMP AMSWREG, SWR 31S SWREG USED 

BNE BEGIN 

TST ase ;ARE WE IN AUTO MODE? 

BNE BEGIN :IF SO, SKIP SWREG INPUT 
JSR PC,CNTLU ALLOW SWREG TO BE LOADED 


CLR HLTDET EVERY PASS CLEAR ERROR FLAG 

CMP PRGCYC,QTYBRD HAS PROGRAM TESTED 7 ah BOARDS? 

BNE BRDSET ;NO,CONTINUE TO NEXT BOARD 

CLR PRGCYC > YES; INITIALIZE seSt iss TO 1ST BOARD 
[OF MULTIPLE BOARD TABLE 


. @ 
CZDRLAO=DR11W GEN NPR rebty MACRO M1111 24-SEP-79 10:39 PAGE 6-4 
INITIALIZE THE COMMON TAGS SEQ 0018 


876 001626 012737 001024 001010 MOV #REGADR , PNTRAD 
877 001634 012737 001076 001012 MOV #VECADR,PNTVAD 
878 001642 012737 001206 001014 MOV #PASCNT ,PNTPAS 
879 001650 012737 001246 001016 MOV #ERRCNT ,PNTERR 


880 
881 
882 ;SET UP BOARD ADDRESSES OF CURRENT BOARD FROM 
pot ;MULTIPLE BOARD TABLE 
885 001656 005237 001020 BRDSET: INC PRGCYC 
886 001662 005737 000042 TST ase ;ARE WE IN MANUAL MODE? 
887 001666 001411 BEQ LOAD ;YES;CHECK MULT BRD TABLE FOR NEXT BOARD ADDRESS 
888 001670 013737 001004 001024 BEGAUT: MOV DEFRAD,REGADR ‘NO; USE DEFAULT REGISTER ADDRESS 
889 001676 013737 001006 001076 MOV DEF VAD, VECADR 
890 001704 012737 000001 001022 MOV #1,QTYBRD 
891 001712 012700 001064 LOAD: MOV AWCR,RO ;LOAD WRD CNT,BUS ADDRESS,STATUS,& DATA BUFFER ADDRESSES 
892 001716 017701 177066 MOV @PNTRAD ,R1 
893 001722 010120 2$: MOV R1,(RO)+ 
894 001724 062701 000002 ADD #2.R1 
895 001730 022700 001074 CMP #BDR+2,R0 
896 001734 001372 BNE 2$ 
897 001736 012700 001136 MOV #DRINV,RO ;LOAD INTERRUPT VECTOR ADDRESSES 
898 001742 017701 177044 MOV @PNTVAD ,R1 
&99 001746 010120 3$: MOV R1,(RO)+ 
900 001750 062701 000002 ADD #2,R1 
901 001754 022700 001142 CMP #DRVS+2,R0 
902 001760 001372 BNE 3$ 
3001762 104401 001770 TYPE ,05$ sTYPE ASCIZ STRING 
001766 000410 BR 64$ [GET — THE ASCIZ 
2365$: .ASCIZ <CRLF><CRLF>/*BRD’ ADDR 
002010 64$: 
904 002010 013746 001064 MOV WCR,~-(SP) 7: SAVE WCR FOR TYPEOUT 
002014 104402 TYPOC 32GO TYPE=-OCTAL ASCII(ALL DIGITS) 
905 002016 104401 002024 TYPE ,67$ 77 TYPE ASCIZ STRING 
002022 000401 BR 66$ ::GET OVER THE ASCIZ 
767$: .ASCIZ <CRLF> 
0020. bis: 
0020 1$: 
907 002026 005037 001314 CLR 
908 002032 012706 022404 MOV #BUFF SP 
909 002036 012777 000340 176736 MOV #340,aPSW sPROC. AT LEVEL #7 
910 002044 013737 002070 014126 MOV TISTR, RE TURN 
911 002052 005037 014124 CLR SCOPEF 
912 002056 005037 001320 CLR TESTNO 


913 002062 005037 014122 CLR 1 COUNT 





CZDRLAO=DR11W GEN NPR INTFC MACRO M1111 24=SEP=79 10:39 PAGE $ 
SEQ 0019 


. SBTTL MAINTE? 
* arte INTENANCE MODE TESTING 


H 
CZDRLAO=DR11W GEN NPR INTFC MACRO M1111 24~SEP=79 10:39 PAGE 8 


TEST 1 CAN ALL DR11W REG BE ADDRESSED WITHOUT ERROR? SEQ 0020 
919 .SBTTL TEST 1 CAN ALL DR11W REG BE ADDRESSED WITHOUT ERROR? 
520 ° SERRA ARERR E AEE EREREREREREEEEEARERRRAERAARERRAREREARAARRRRERER RS 
921 . TEST 1 CAN ALL DR11<W REG BE ADDRESSED WITHOUT ERROR? 
922 FERRARA RRARAREREEER ARERR RARERREEERRARARRARARAERARERARAERAEREHEE ES 
923 
924 
925 002066 000004 SCOPE 
926 002070 012737 002000 014122 TISTR: MOV #2000, 1 COUNT ; 
927 002076 012737 002204 000004 MOV #CPUERR,BUSERR ;CPU ERROR VECTOR TO CPUERR 
928 002104 013746 001064 CKWCR: MOV wCR,-(SP) ;SAVE ADDRESS FOR TYPE 
929 002110 005777 176750 TST awCR zACCESS REGISTER 
930 002114 005726 TST (SP) + ~OK;READJUST STACK 
931 002116 013746 001066 CKBAR: MOV BAR ,-(SP) 
932 002122 005777 176740 TST @BAR 
933 002126 005726 TST (SP) + 
934 002130 013746 001070 CKCSR: MOV CSR,-(SP) 
935 002134 005777 176730 TST acsR 
936 002140 005726 TST (SP) + 
937 002142 013746 001072 CKBDR: MOV BDR,-(SP) 
938 002146 005777 176720 TST @BDR 
939 002152 005726 TST (SF) + 
940 002154 013746 001136 CKDRIN: MOV DRINV,~(SP) 
941 002160 013777 001140 176750 MOV DRVS,,aDRINV 
942 002166 005726 TST (SP) + 
943 002170 013746 001140 CKDRVS: MOV DRVS,-(SP) 
944 002174 005077 176740 CLR @aDRVS 
945 002200 905726 TST (SP) + 
946 002202 000455 BR CKF IN 
947 002204 022626 CPUERR: CMP (SP)+,(SP)+ 
948 002206 104401 002214 TYPE 058 23 TYPE ASCIZ STRING 
002212 000423 BR 64$ GET OVER THE ASCIZ 
3765$: .ASCIZ <CRLF>/TESTNO 1-CPu ERROR WHILE ADRESSING / 
002262 64$: 
949 002262 104402 TYPOC 
950 002264 104401 001354 TYPE ~SENULL 
951 002270 012737 900006 000004 MOV #6,BUSERR ps #6 TO BUS ERROR VECTOR 
952 002276 104401 002304 TYPE ,67$ TYPE ASCIZ STRING , 
002302 000413 BR 66$ [GET OVER THE ASCIZ ; 
3367$:  .ASCIZ <CRLF>/SKIPPING ait TESTS / 
002332 66$: 
953 002332 000137 013132 JMP END 
are 002336 012737 000006 O000046 CKFIN: MOV #6,BUSERR ZRESTORE 46 TO BUS ERROR VECTOR 
956 





CZDRLAO=DR11W GEN NPR INTFC MACRO M1111 24=SEP=79 10:39 PAGE 9 
TEST 2 ARE WE TESTING A DR11wW OR A DR11B? SEQ 0021 


959 .SBTTL TEST 2 ARE WE TESTING A DR11W OR A DR11B? 
960 PLR A AAA AERA REE EAA ATER TRAE AEE ARERR RRR 
961 ; TEST 2 ARE WE TESTING A DR11W OR A DR11B? 
2 LRA RARER REE AEERRERTEERA EEA TRA e 
963 002344 000004 SCOPE 
964 002346 005037 014122 CLR I COUNT 
965 002352 005077 176512 CLR acsR FORCE TO BE CSR #7 
966 002356 052777 100000 176504 BIS #B1T15,aCSR 
967 002364 017737 176500 001144 MOV aCSR ,BORW 
968 002372 032737 000001 001144 BIT #B1TO ,BORW ;ARE WE A BOR A WwW? 
969 002400 001403 BEQ 1$ sWE ARE AB 
970 002402 104401 015310 TYPE »MSG9 
971 002406 000402 13 


BR 
972 002410 104401 015230 1$: TYPE -MSG8 





CZDRLAO=DR11W GEN NPR INTFC MACRO M1111 24-SEP-79 10:39 PAGE 10 
TEST 3 THAT DEVICE INIT CLEARS WCR SEQ 0022 


974 .SBTTL TEST 3 THAT DEVICE INIT CLEARS WCR 
975 LRA AA ATTA ETRE AAR RAR 
976 ; TEST 3 THAT DEVICE INIT CLEARS wWCR 
977 LARA REE R ERR RERAAREREEAAATAARAAAARARATAAETEEAA RR e 
978 002414 000004 TS: SCOPE 
979 002416 005077 176446 : CLR aCSR FORCE TO BE CSR #1 
980 002422 012737 000010 014122 MOV #10, 1 COUNT 
981 002430 012777 177777 174426 MOV #-1,awCR ;ALL ONES TO WCR 
436 006737 014144 JSR PC,CKSWR 
983 002442 052777 010000 176420 BIS #B1T12,aCSR DEVICE 
984 002450 042777 010000 176412 BIC #B1T12,aCSR Z INIT 
985 002456 005777 176402 TST awCR :IS Z BIT SET? 


986 002462 001401 BEQ +4 “DID WCR GET CLEARED 
987 002464 104000 HLT *WCR NOT CLEAR 





K 
CZDRLAO=DR11W GEN NPR INTFC MACRO M1111 24-SEP-79 10:39 PAGE 11 
TEST 4 THAT DEVICE INIT CLEARS BAR SEQ 0023 


-SBTTL TEST 4 THAT DEVICE INIT CLEARS BAR 


989 

990 eerie iiiiiti iii ti iti i iit 
991 ; TEST 4 THAT DEVICE INIT CLEARS BAR 

992 LL RRR RRR RARER AAR RARER AERA ERR ARERR RARER REE REE R EERE E RR EEE 
993 002466 000004 SCOPE 

994 002470 005077 176374 CLR acsR FORCE TO BE CSR #1 

995 002474 012777 177777 176364 MOV #~-1,@BAR ;ALL ONES TO BAR 

996 002502 0047 014144 JSR PC,CKSWR 

997 002506 052777 010000 176354 BIS #B1T12.aCSR DEVICE 

998 002514 042 010000 176346 BIC #B81T12,aCSR INIT 

999 002522 005777 176340 TST @BAR 31S Z BIT SET? 

1000 002526 001401 BEQ +4 ;DID BAR GET CLEARED 

1001 002530 104000 HLT ;BAR NO CLEAR 


L 
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TEST 5 THAT DEVICE INIT CLEARS BDR SEQ 0024 
1003 .SBTTL TEST 5 THAT DEVICE INIT CLEARS BDR 
1004 LAER EERE EAE RARER ARERR AA AREER AAA AERA ARREARS 
1005 : TEST 5 THAT DEVICE INIT CLEARS BDR 
1006 PRE REEAAEREERERRREEEEA AR EAAAATAAA AA AAAE TERRE TARR AR 
1007 002532 000004 SCOPE 
1008 002534 005077 176330 CLR acsSR sFORCE TO BE CSR #1 
1009 002540 012777 010000 176322 MOV #B1T12,aCSR MAINT MODE 
1010 002546 012737 000010 014122 MOV #10, 1 COUNT 
1011 002554 012777 177777 176310 MOV #-1,@BDR sALL ONES TO BDR 
1012 002562 004737 014144 Z JSR PC, CKSWR 
1013 002566 042777 010000 176274 BIC #81T12,aCSR DEVICE INIT 
1014 002574 012777 010000 176266 MOV #B1T12,aCSR 
1015 002602 005777 176264 TST @BDR CHECK FOR ZERO 
1016 001401 BEQ +4 
1017 002610 104000 HLT 
1018 
1019 


CZDRLAO=DR11W GEN NPR INTFC 
TEST 6 THAT DEVICE INIT CLEARS 


1028 002630 
1029 


1030 002636 
1031 002642 
1032 002650 
1033 002656 
1034 002664 
1035 002666 


010000 
000010 
010576 
014144 
010000 
010000 
010200 


MACRO M1111 24-SEP-79 10:39 PAGE 13 
ALL R/wW BITS IN THE CSR 


.SBTTL TEST 6 THAT DEVICE INIT CLEARS ALL R/W BITS IN THE CSR 


176246 
014122 
176232 


176220 
176212 
176204 


#B1T12,aCSR 
#10, 1 COUNT 
10876, acsR 


KSWR 


#10200, acsrR 


RRR AAAAAAAAEAAARARAAKEERERAARAERAERAEARREARAAERAEEAKEARAARERERERKTERKE 


TEST 6 THAT DEVICE INIT CLEARS ALL R/W BITS IN THE CSR 


REE RAAAAEARAAEAAAAEAAARAAEEAEAAEAAEAERAAEEAAERAERARAAERARERAERRAERREAERAERREAEEE 
;MAINT MODE 


SET MAINT(12) ,CYCLE (08) , 1E (06) XBA17(05) 
3XBA16(04) ,FNCTO3(03) ,FNCTO2(02) ,FNCT1(01) 


: DEVICE INIT 

NT MODE 
[TEST FOR ZERO'S,AND READY BIT SET 
[WERE ALL R/w BITS CLEARED 


SEQ 0025 








CZDRLAO=DR11W GEN NPR INTFC 
TEST 7 DOES RESET CLEAR wCR? 


176172 
000010 
177777 
014144 


176140 


N 2 
MACRO M1111 24=SEP=79 10:39 PAGE 14 


-SBTTL TEST 7 DOES RESET CLEAR WCR? 


MOR CEPSRESLALALALLSEE ESE SESE SERRE SERRE REE RRR RRS RRR R RR RRR RRR RRR ARR ARR DDS ES 


TEST 7 DOES RESET CLEAR WCR? 


RARER ARRAAEAEAAEERKEEEEERERREARERREEEERERHARARRERRERERRERHERKE 


FORCE TO BE CSR #1 
sALL ONES TO WCR 


INIT 
LOOKING FOR Z-BIT TO SET 


:DID WCR GET CLEARED? 
;WCR NOT CLEAR 


CZDRLAO=DR11W GEN NPR INTFC MACRO M1171 24-SEP-79 10:39 PAGE 15 
TEST 10 CAN ALL WCR BITS BE SET? 


000004 
005077 
012777 
022777 
001401 
104000 







SEQ 0027 
.SBTTL TEST 10 CAN ALL WCR BITS BE SET? 


SS RAAAAARARAAAAAEREREAERERERARARARARAERARRAARARARRREAARRARAREAAARERARERES 


: TEST 10 CAN ALL WCR BITS BE SET? 


+ RRR AAEARAERAERARARAARAARARAARAARAARARARARAARARRAREKRERAKRARRR AKA RA eee s 


SCOPE 
176132 CLR acsR FORCE TO BE CSR #1 
177777 =176120 MOV #-1 ,awCR SET ALL SITS _IN WCR 
177777 176112 CMP #-1 ,awCR ;LOOKING FOR Z-BIT TO SET 
BEQ .*4 SEE IF ALL BITS GOT SET 


HLT ALL BITS AREN'T SET 
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TEST 11 DOES RESET CLEAR BAR? SEQ 0028 
1069 .SBTTL TEST 11 DOES RESET CLEAR BAR? 
1070 LURE RAE EEE R ARERR AREER ETRE EEE AERA 
1071 ; TEST 11 DOES RESET CLEAR BAR? 
1072 LEAR AREER REE REE E ERE E EAA REAR REAR ARA Ree 
1073 
1074 
1075 002756 000004 SCOPE 
1076 002760 005077 176104 CLR acsrR FORCE TO BE CSR #1 
1077 002764 012777 177777 176074 MOV #-1 ,@BAR ;ALL ONES TO BAR 
1078 002772 004737 014144 JSR PC,CKSWR 
1079 002776 000005 RESET 7 INIT 
1080 003000 005777 176062 TST @BAR ;LOOKING FOR Z-BIT TC SET 
1081 003004 001401 BEQ +4 ;DID BAR GET CLEARED? 
at 003006 104000 HLT ;BAR NOT CLEAR 
1084 


’ 
CZDRLAO=DR11W GEN NPR INTFC MACRO M1111 24-SEP-79 10:39 PAGE 18 
TEST 12 CAN BITS 15-01 IN BAR BE SET? 


.SBTTL TEST 12 CAN BITS 15-01 IN BAR BE SET? 


J PRRARRAAAAARAARARARAAARAARARAAAARAARAARRAHAARAARARARRAARAERERAAARAAERRE 


TEST 12 CAN BITS 15-01 IN BAR BE SET? 


* 
FTRAAAAAAAAAARARRAKRAAARAARAAAAARARARAARARAAAAAAERARAARARAARHAREHREREES 


SCOPE 
177776 =176046 MOV #-2 ,@BAR ;SET BITS 15-01 IN BAR 
;LOOKING FOR Z-BIT TO SET 


177776 176040 CMP #-2 , @BAR 
BEQ .+4 ;SEE IF BITS 15-01 GOT SET 


HLT 
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TEST 13 TEST THAT FNCT1 CAN BE SET AND CLEARED SEQ 0030 


.SBTTL TEST 13 TEST THAT FNCT1 CAN BE SET AND CLEARED 


SL ARAAAARAAAAAAAAARAAAEAEEEREARRRAAAARARARARARAAERARARRREARERA ARRAN RHEE 


TEST 13 TEST THAT FNCT1 CAN BE SET AND CLEARED 


. 
SL AAAAAAAAARAAEAAAAARAAAERERAREAERRAARORRAREAARERRERARAARARHREERARAAHEE ED 


003032 000004 SCOPE 

003034 005077 176030 CLR acSR sFORCE TO BE CSR #1 
003040 012777 010000 176022 MOV #B81T12,aCSR SET MAINT MODE 
003046 012737 002000 014122 MOV #2000, ] COUNT 

003054 052777 000002 176006 BIS #B1T1,aCSR SET FNCTI 
003062 032777 000002 176000 BIT #B1T1,aCSR TEST FNCT1 
003070 001001 BNE +4 31S IT SET? 
003072 104000 HLT sFNCT1 IS CLEAR 
003074 042777 000002 175766 BIC #B1T1,aCSR ;CLEAR FNCT1 
003102 032777 000002 175760 BIT #B1T1,aCSR TEST FNCT1 
003110 001401 SEQ ~*4 sWAS IT CLEAR 
003112 104000 HLT :FNCT1 WAS SET 


ek ak a at ts 2 SI Hh os st I 
ee ek ek a ad as i“ hs 
Nm 2 VY HH OQVOCOCCO 
SSSa VOARWN OSS MR ARGS 


CZDRLAO=DR11W GEN NPR INTFC MACRO M1111 24=SEP=79 10:39 PAGE 20 
TEST 14 TEST THAT FNCTc CAN BE SET AND CLEARED SEQ 0031 


.SBTTL TEST 14 TEST THAT FNCT2 CAN BE SET AND CLEARED 


FF RAAARARARAARARARARAARAEARARAARARAAARARARAARAAAARAAAAAAARARARAAAAAARARHANS 


TEST 14 TEST THAT FNCT2 CAN BE SET AND CLEARED 


’ 
FL REAAAAARARAARARAARRAARAARAEAAARARAERAAARARRARRARAARAARARRARRERERAAEAAAES 


Nm 
WN 


003 

003116 005077 175746 CLR acsrR sFORCE TO BE CSR #1 
003122 012777 010000 175740 MOV #B1T12,aCSR SET MAINT MODE 
003130 052777 000004 175732 BIS #BiT2,aCSR SET FNCT2 
003136 032777 000004 175724 BIT #B1T2,aCSR 3; TEST FNCT2 
003144 001001 BNE +4 :1S_ IT SET? 
003146 104000 HLT sFNCT2 IS CLEAR 
003150 042777 000004 175712 BIC #B1T2,aCSR CLEAR FNCT2 
003156 032777 000004 175704 BIT #B1T2,aCSR TEST FNCT2 
003164 001401 BEQ +4 3WAS IT CLEAR? 
003166 104000 HLT sFNCT2 WAS SET 


al a a ce a ed el ce ae cee a a wl ll cll ld 
WIWWN WWW AWW Mnonmnen 
VIS SRVEARAYLSBRVEAR 
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TEST 15 TEST THAT FNCTS CAN BE SET AND CLEARED 


.SBTTL TEST 15 TEST THAT FNCT3 CAN BE SET AND CLEARED 


FL MAAERARARAAROREAARARARAEERAAAAARAARERAARARRAERARARAAAARRARRA ARERR AEREE 


; TEST 15 TEST THAT FNCT3 CAN BE SET AND CLEARED 


J J ATAAAAEAAAAAAAETEAARAAREREAARARARARARARARRARAAAARARAARARAAARAERARERE RNS 


acsR FORCE TO BE CSR #1 
175664 #B1T12,aCSR SET MAINT MODE 
175656 #B11T3,aCSR SET FNCT3 
175650 #B1T3,aCSR TEST FNCT3 
+4 313 iT SET? 
sFNCT3 IS CLEAR 
175636 #B1T3,aCSR CLEAR FNCT3 
175630 #B1T3,aCSR TEST FNCT3 
-*4 ;WAS IT CLEAR? 
FNCT3 WAS SET 


175672 


ONAUEWN OOO 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
: 
} 
; 


ABXBMAAAAAA ANSI ES 
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TEST 16 TEST THAT XBA16 CAN BE SET AND CLEAR SEQ 0033 


= 
aad 
oO 
Ww 


.SBTTL TEST 16 TEST THAT XBA16 CAN BE SET AND CLEARED 


TL ATAAAARAARAERARAAARAARRARAAAAAAAAARARTAAARRARHAAAARKARKAARRARRARAR AR ARS 


TEST 16 TEST THAT XBA16 CAN BE SET AND CLEARED 


. 
FF EAAAARAAARARRAARARRAARAAARARRRERAARARAERRARARAARARARAEAAAARARRAEAAAREEE 


acsR FORCE TO BE CSR #1 
#B1T12,aCSR : T MODE 
#B1T4,aCSR ; SET 

ee ; TEST XBA16 

.* > 


175616 
0000 


#B1T4.aCSR 
#B1T4,aCSR 
+6 

:XBA16 WAS SET 


SISISRANVSSSSESF 


OO ath ah al all all ald ah coh nl eal el ca cath alld 
DNAUSWN—OO 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 








1_ 3 
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EST THAT XBA17 CAN BE SET AND CLEARED 


.SBTTL TEST 17 TEST THAT XBA17 CAN BE SET AND CLEARED 


Z2 PUT TTTTITTTITITT TITTLE TLE LILI LLL LL LLL 


TEST 17 TEST THAT XBA17 CAN BE SET AND CLEARED 


SE URAAAAAAAAARAAAAAAARAEAEERERARRRARRAAARARRARAAARAAERARRRRERERRAERAAAE HS 


acsR CET A TO BE CSR #1 
#B81T12,aCSR MODE 
#B1T5,aCSR 

ot 

mm 


#B1T5,acs 
ei 5.acs 
+4 


1 
1 
1 
1 
1 
1 
, 
1 
1 
1 
1 
1 
1 
1 
1 
1 


a a et 8“ ot 2 = 
FRAN LESELKARATAS 
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L 


TEST 20 TEST THAT IE CAN BE SET AND CLEARED SEQ 0035 


-SBTTL TEST 20 TEST THAT JE CAN BE SET AND CLEARED 


J J TAAAAARAAAAAAAAAAAAARARHAAAAAARAEARERAAAAAHARAAAAAAREAAAAAARERRARARAAS 


TEST 20 TEST THAT JE CAN BE SET AND CLEARED 


* 
FF AAAAAAAAAAAAARAAARAAAAAAARAAAAERARAAAAAARAAHAAAAAAARAKARAARAHAAHARAAAE 


:FORCE TO BE CSR #1 
MODE 


— 
—— 
$29 


acSR 
175460 #B1T12,aCSR 
175452 #B1T6,aCSR 
175444 —~ T6,@CSR 
.* 


175432 #B1T6,aCSR 
175426 oo) Se SR 
+ 


1 

1 
1200 
1201 
1202 
1203 
1204 
1205 
1206 
1207 
1208 
1209 
12 
12 
12 


—t ad od 
moO 
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TEST 21 TEST THAT CYCLE CAN BE SET AND CLEAR SEQ 0036 


1214 -SBTTL TEST 21 TEST THAT CYCLE CAN BE SET AND CLEARED 

1215 SPREE AERA AREA AAA AAA ATA A AAA RR 
1216 ; TEST 21 TEST THAT CYCLE CAN BE SET AND CLEARED 

1217 PLEA AREA ARERR ATER R RARER ERAT ARATE ERAT ARERR AAA 
1218 003450 000004 SCOPE 

1219 003452 005077 175412 CLR acsR :FORCE TO BE CSR #1 

1220 003456 012777 010000 175404 MOV #81T12,aCSR :SET MAINT MODE 

1221 00 052777 000400 175376 BIS #81T8,aCSR sSET CYCLE 

1222 003472 032777 000409 175370 BIT #B1T8,aCSR sTEST CYCLE 

1223 003500 001001 BNE +4 :1S IT SET? 

1224 003502 104000 HLT sCYCLE WAS CLEAR 

1225 003504 042777 000600 175356 BIC #81T8,aCSR CLEAR CYCLE 

1226 003512 032777 000400 175350 BIT #B1T8,aCSR :TEST CYCLE 

1227 003520 001401 BEQ ~*4 i1S_IT CLEAR? 


1228 003522 104000 HLT CYCLE WAS SET 
1229 
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TEST 22 TEST THAT MAINT CAN BE SET AND CLEAR SEQ 0037 


123) .SBTTL TEST 22 TEST THAT MAINT CAN BE SET AND CLEARED 

1232 PET iit sities 
1233 : TEST 22 TEST THAT MAINT CAN BE SET AND CLEARED 

12% Pitti iit rrr 
1235 003524 000004 SCOPE 

1236 003526 005077 175336 CLR acsR FORCE TO BE CSR #1 

1237 003532 012777 010000 17533 #81T12,aCSR ;SET MAINT 

1238 00354 32777 010000 175322 BIT #B1T12,aCSR i; TEST MAINT 

1239 003546 001001 BNE +4 31S IT SET? 

1240 003550 104000 HLT ;MAINT WAS CLEAR 

1241 003552 042777 010000 175310 BIC #B1T12,aCSR ;CLEAR MAINT 

1242 003560 032777 010000 175302 BIT #B1T12,aCSR 7 TEST MAINT 

1243 003566 001401 BEQ +4 71S MAINT CLEAR? 

ies 003570 104000 HLT ;MAINT WAS SET 

1246 003572 001401 BEQ .*4 31S IT CLEAR? 

by or 003574 104000 HLT sCYCLE WAS SET 


m 3 
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TEST 23 THAT ALL CSR R/wW BITS CAN BE SET AND CLEARED SEQ 0038 
1250 .SBTTL TEST 23 THAT ALL CSR R/W BITS CAN BE SET AND CLEARED 
1251 PITITITIIIITITITITITITITLITLI LI TITLTiTLLLLLiLiTttet 
1252 : TEST 23 TEST THAT ALL CSR R/W BITS CAN BE SET AND CLEARED 
1253 ; MAINT MODE (INTERNAL WRAP-AROUND) 
1254 PLEA RAR ARR AARRARAEREEEREEAERAERRRERERERREREREAEREAERERREERERERREREEED 
1255 003576 000004 SCOPE 
1256 003600 005077 175264 CLR acsrR : FORCE TO BE CSR #1 
1257 003604 012777 010000 175256 MOV #B1T12,aCSR MAINT MODE 
1358 003612 052777 020576 175250 BIS #20576. aCSR SET FOLLOWING :MAINT(12) . CYCLE (OB) IE (06) -xBA17(05) 
1259 XBA16( 045, FNCT3(03), FUNCT2(02), FNCT1(01) 
1360 003620 032777 000002 175242 BIT #B1T1,aCSR “TEST FNCTI 
1261 00 001001 BNE +6 21S IT SET? 
it 0036 104000 HLT sFNCT1 IS CLEAR 
1263 003632 032777 000004 175230 BIT #B1T2,aCSR ; TEST FNCT2 
1264 003640 001001 BNE | ‘1S IT SET? 
1265 003642 104000 HLT TFNCT2 IS CLEAR 
1266 003644 03277 000010 175216 BIT #81T3,aCSR s TEST FNCT3 
1267 003652 001001 BNE +4 s1S IT SET? 
1268 003654 104000 HLT FNCT3 IS CLEAR 
1369 003656 032777 000020 175204 BIT #B1T4.aCSR ‘TEST XBA16 
1270 3664 001001 BNE +4 31S IT SET? 
1271 104000 HLT *MBA16 IS CLEAR 
1272 003670 032777 000040 175172 BIT #BITS,aCSR :TEST XBA17 
1273 003676 001001 BNE +6 I$ IT SET? 
1274 003700 104000 HLT :xBA17 1S CLEAR 
1275 003702 032777 000100 175160 BIT #B1T6,aCSR sTEST IE 
1276 003710 001001 BNE +6 ‘I$ IT SET? 
1 3712 104000 HLT TIE IS CLEAR 
1278 003714 032777 000400 175146 BIT #B1T8,aCSR sTEST CYCLE 
1279 003722 001001 BNE +6 TIS CYCLE SET? 
1280 003724 104000 HLT “CYCLE IS CLEAR 
yd 003726 032777 010000 175134 BIT #81T12,aCSR : TEST MAINT 
1282 003734 001001 BNE +4 ;1S MAINT SET? 
1283 003736 104000 HLT “MAINT IS CLEAR 


1285 003740 
1286 003746 
1287 003754 
1288 003756 


1289 003760 
290 003766 


e 
SES 


pou erercress 
sopEpereeepeeeere 


PRRVBES RET 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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TEST 23 THAT ALL CSR R/W BITS CAN BE SET AND CLEARE 


030576 
000002 


000004 


MACRO M1111 


175122 
175114 


175102 


175070 


175056 


175044 


175032 


175020 


175006 


24-SEP 


N 
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#30576,aCSR 
ne Wicca 
.* 


#B1T2,aCSR 
+4 
#B1T3,aCSR 
+4 
#B1T4,aCSR 
+4 
#B1TS,aCSR 
+4 
#B1T6,aCSR 
+4 
#B1T8,aCSR 
+4 


#B1T12,aCSR 
+4 


Be Be Se Se Be Be Be Be 


Se 


Oe a Bee eel el 


+ 
og 

o-= 

—+ 


R/wW BITS IN CSR 


2 


AWAMNAM-O 
“~ 


_ 
> 


na 
AONNMAODAVWOWMONANOA— 


; At - 2 OO ER 
—AmMaomr On 
2a i i LA 

oO 


; T 
:1S MAINT CLEAR? 
MAINT IS SET 


SEQ 0039 
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EST 24 ALL R/w BITS IN CSR CAN BE SET AND RESET TO ZERO SEQ 0040 
1312 .SBTTL TEST 24 ALL R/W BITS IN CSR CAN BE SET AND RESET TO ZERO 
13) 3 . LRRAAAAAAAAERAAAREEEERA EEA ERERREEEEAAAERARAREERERRARAARAAAEREER ERS 
1314 TEST 24 ALL R/W BITS IN CSR CAN BE SET AND RESET TO ZERO, THAT READY 
1315 IS SET, NEX IS CLEAR, GO IS READ AS A O,AND ERROR IS CLEAR. 
1316 : MAINT MODE (INTERNAL WRAP-AROUND) 
1317 LLU RAARERAE ERA EER AERA RETR HARE E RARER REE 
1318 004066 SCOPE 
1319 004070 00 174774 CLR acsR :FORCE TO BE CSR #1 
1320 004074 912777 010000 174766 MOV #81T12,aCSR ‘MAINT MODE 
1321 006102 012737 000010 014122 MOV #10, 1 COUNT 
1322 004110 052777 010576 174752 BIS #10576, aCSR sSET FOLLOWING: MAINT(12),CYCLE (08), 1E (06) ,xBA17(05), 
1323 : XBA16(04) ,FNCT3(03) ,FNCT2(02) , FNCT1(01) 
1324 004116 017701 174746 MOV acsR,R1 ‘MOVE (CSR) TO R1 
1325 004122 052701 167201 BIS #167201,R1 “SETS BITS IN R1 THAT WERE NOT SET IN CSR 
1326 004126 005201 INC R1 *R1 SHOULD GO FROM -1 TO ZERO 
1327 004130 001401 BEQ me ‘WERE ALL CSR R/wW BITS SET? 
1328 004132 104000 HLT “NOT ALL BITS WERE SET 
1329 004134 004737 014144 JSR PC, CKSWR 
1330 004140 000005 RESET ZCLEAR ALL CSR R/W BITS 
1321 0046142 017701 174722 MOV acsR,R1 “MOVE (CSR) TO R1 
1332 004146 042701 127000 BIC #127000,R1 SCLEAR ERROR, ATIN,DSTATA, DSTATB,DSTATC 
1333 004152 022701 000200 CMP #200,R1 “TEST FOR READY 
1334 006156 001401 BEQ +6 
1335 004160 104000 HLT :RESET DIDN'T LEAVE CSR AS IT SHOULD HAVE 


eer oe tanh GEN MPR INTFC MACRO M1111 24=SEP=79 10:39 PAGE 30 
TES R AND EIR BITO TEST 


.SBTTL TEST 25 CSR AND EIR BITO TEST 
PUTITIITTC TIT IT TIT iit ii tit itii titi i iti tt tit iii 
TEST 25 CSR AND EIR BITO TEST 
TEST THAT BITO OF CSR READS AS A ZERO 
TEST THAT BITO OF EIR READS AS A ONE 


FL RRAAAEAAAAAAEAARARARARRERARRARRARARAAARAAARAAARARARRAAARHRARERARERA EES 


000001 001144 IT + Mceamang 


174670 acsR ;FORCE TO BE CSR 
000001 174662 #B1T0,aCSR :1S BITO A ZERO? 

+4 zYES IT IS A _ 

BITO READ AS A ONE 

100000 174650 #B1T15,aCSR “SET B1T15 TO GO TO EIR 
000001 174642 #B1T0,aCSR 31S BITO A Py 

.*4 YES IT IS A ONE 

:BITO READS AS A ZERO 

174632 acsR ;RETURN TO CSR 
000001 174624 wr hint nai DID WE GET BACK 

«* 


YES 
=NO WE ARE STUCK IN EIR 


#3 


ERESEEEELE 
DRBVFAR WN“ SOBNAORWN OS 


1 
1 
, 
1 
1 
1 
: 
: 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


WWWWWWAWAWAAG 
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TEST 26 THAT ATTN CAN BE SET VIA Fe & ERROR SETS SEQ 0042 


1361 .SBTTL TEST 26 THAT ATIN CAN BE SET VIA F2 & ERROR SETS 
1362 Se PRR RARABALAAZABRAAAAAAEAAAAAEEEEEEREEEAS ESSERE REESE RRR RRR RRR R RRR RARER RARE SS 
1363 : TEST 26 TEST THAT ATIN CAN BE SET VIA F2 & ERROR SETS; 
1364 : TEST THAT ATTN,AND THEREFORE ERROR WILL CLEAR 

1365 ; MAINTENANCE MODE (INTERNAL WRAP-AROUND) 

1366 SRR EERE REE A ARERR RARER EERE EEE RETR ER 
1367 004250 000004 t SCOPE 

1368 004252 032737 000001 001144 BIT #81T0,BORW 

1369 004260 001444 BEQ T27 :IF A 'B'' SKIP TEST 

1370 0046262 012737 002000 014122 MOV #2000, 1 COUNT 

1371 004270 005077 174574 CLR acsR :FORCE TO BE CSR #1 

1372 004274 012777 010000 174566 MOV #B1T12,aCSR ‘MAINT 

1373 006302 022777 010200 174560 CMP #10200. aCSR ‘ONLY READY AND MAINT 

1374 004310 001401 BEQ +6 

1375 004312 104000 HLT : SOME THING OTHER THAN READY&MAINT 
1376 004314 112777 000004 1746546 MOVB  #BIT2,aCSR SSET F2 

1377 004322 032777 020000 174540 BIT weirs, acsR ‘TEST ATTN 

1378 004330 001001 BNE +4 :1S IT SET? 

1379 004332 104000 HLT *ATIN WAS CLEAR 

1380 004334 042777 020004 174526 BIC #200046,aCSR “CLEAR ATTN & F2 

1381 004342 032777 020000 174520 BIT #BiT13.aCS *TEST ATIN 

1382 004350 001401 BEQ +6 ‘TS ATTN CLEAR? 

1383 004352 104000 HLT ‘ATTN WAS SET 

1384 006354 017705 174510 MOV aCSR,RS5 TSAVE CSR #1 

1385 004360 005705 TST R5 *1S ERROR CLEAR? 

1386 004362 100001 BPL +4 

1387 004364 104000 HLT :ERROR IS STILL SET 

1388 004366 005077 174476 CLR acsR ‘RETURN TO CSR #1 
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1 
TEST 27 CAN WCR HOLD ALTERNATE ONES AND ZER SEQ 0043 
1392 .SBTTL TEST 27 CAN WCR HOLD ALTERNATE ONES AND ZEROS 
1393 JL AAAAAARARAERARAAAAAARAAAAAERARRARARAAARAAAARAAAAAAAAARARAREEERRARARAAAHS 
1394 ; TEST 27 CAN WCR HOLD ALTERNATE ONE'S AND ZERO'S 
1395 SL AAAAARARAAAAAAAARARAARRARAARARRRARARRAAAAARRAERRAAAAAAAARAARAREARAEE HE 
1396 004372 000004 127: SCOPE 
1397 004374 005677 174470 CLR acsR :FORCE TO BE CSR #1 
1398 004400 012737 002000 014122 MOV #2000, I COUNT 
1399 006406 012777 052525 174450 MOV #052525,awCR ALT O°S AND 1°S TO WCR 
1400 004414 022777 052525 174442 CMP #052525.awWCR : LOOKING FOR 2-BIT TO SET 
1401 004422 001401 BEO +h “DOES WCR HAVE THE CORRECT PATTERN? 
1402 004424 104000 HLT tWCR DOESN'T HAVE THE CORRECT PATTERN 
1403 004426 012777 125252 174430 MOV #125252,awWCR :ALT 1°S AND O'S TO WCR 
1404 004434 022777 125252 174422 CMP #125252.awWCR  :LOOKING FOR 7-BIT TO SET 
1405 004442 001401 BEQ 2th :DOES WOR HAVE THE CORRECT PATTERN? 
1406 004444 104000 HLT ;WCR DOESN'T HAVE THE CORRECT PATTERN 
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TEST 30 TEST THAT BAOO READS AS A ZERO 











1409 .SBTTL TEST 30 TEST THAT BAOO READS AS A ZERO 

1410 DL REE E RE RER ER A RR E REE E RARE ER EER RE Ee 
1411 : TEST 30 TEST THAT BAOO READS AS A ZERO 

1412 : MAINTENANCE MODE (INTERNAL WRAP-AROUND ) 

1413 LL RRE RARER RARER AEE ERE REAR ARE RAAT ER RRA R ERR RRR RATE 
1414 004446 SCOPE 

1415 004450 005077 174414 CLR FORCE TO BE CSR #1 

1416 006454 012737 002000 014122 MOV 72000 I COUNT 

1417 004462 012777 010000 174400 MOV #B1T12,aCSR ;MAINT MODE 

1418 004470 000240 NOP 

1419 004472 000240 NOP 

1420 004474 105777 174370 TSTB acSR IN MAINTENANCE MODE TESTING:READY 
1421 : CONTROL S LEVEL OF BAOO.MUST BE SET 
1422 FOR BAOO=0.ALSO,READY SET ALLOWS CSR 
1423 [TO BE READ. READING CSR WILL ENABLE 
1424 > CLOCKING OF 0 TO BAOO THRU REGISTER 
1425 [IN BOARD HARDWARE 

1426 004500 100401 BM! .+4 

1427 004502 104000 HLT READY NOT SET 

1428 006504 032777 000001 174354 BIT #B1T0,aBAR ; TEST BIT 0 OF BAR 

1429 0064512 001401 BEQ ~*4 7I1S_IT CLEAR? 


1430 004514 





;BAOO IS SET 
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174344 


MACRO M1111 
TEST 31 CAN BAR HOLD ALTERNATE ONES AND 7ER 


174336 
174326 


174314 


174302 
174270 


OF itsctiteied 10:39 PAGE 36 





.SBTTL TEST 31 CAN BAR HOLD ALTERNATE ONES AND ZEROS 


SL ARAAAAAAARARAAAARAAARARAREARARARARRAAARAARARRARARKAKKREKARAAAARAARARARAH ANS 


TEST 31 CAN BAR HOLD ALTERNATE ONE'S AND ZERO'S 
MAINT MODE (INTERN. WRAP-AROUND ) 


acsR 
#B1T12,aCSR 
#052524, @BAR 
acsrR 
#052524, @BAR 
+4 

#125252, @BAR 
acs 

#1 erase , @BAR 


PL UAAAAAARAARAARAAARRERAERERAEEARARKRARARRAAAARRARREHAREAAAREHAERAAHEH ERAS 


FORCE TO BE CSR #1 

MAINT MODE 

ALT O°S AND 1°S TO BAR 

;LOOKING FOR Z-BIT TO SET 

;DOES BAR HAVE THE CORRECT PATTERN? 
;BAR DOESN'T HAVE THE CORRECT PATTERN 
;ALT 1°S AND 0°S TO BAR 

;LOOKING FOR Z BIT TO SET 


; INCORRECT PATTERN 
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TEST 32 INCREMENTING PATTERN TO WRAP-AROUND IN W SFQ 0046 
1451 .SBTTL TEST 32 INCREMENTING PATTERN TO WRAP-AROUND IN WC(R 
1452 LLU AAA AEA AAA REE ARERR AERA AA RE RAERERAER ERR RRR RRR RAR 
1453 ; TEST 32 INCREMENTING PATTERN TO WRAP-AROUND IN WCR 
1454 LL AAAAAAAAARAAAEAEE ARERR AA ERATE TEAR AE RARER RERRR RRR R AREER RRA RAE ee 
1455 004602 000004 SCOPE 
1456 004604 005077 174260 CLR acsR :FORCE TO BE CSR #1 
1457 004610 005037 014122 CLR I COUNT 
1458 004614 005001 CLR R1 SET-UP 
1459 004616 005077 174242 CLR awtR SET-UP 
1460 004622 020177 174236 INCWC: CMP R1,awCR ;SEE IF THEY ARE EQUAL 
1461 004626 001401 BEQ +4 ;ARE THEY EQUAL? 
1462 004630 104000 HLT ; THEY'RE NOT EQUAL 
1463 004632 005277 174226 INC awCR ;GET NEXT NUMBER 
1464 004636 005201 INC R1 :GET NEXT NUMBER 


er 4 004640 001370 BNE INC WC ;DONE WITH TEST? IF NOT CONTINUE 
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TEST 33 INCREMENTING PATTERN TO WRAP-AROUND IN BAR SEQ 0047 
1468 .SBTTL TEST 33 INCREMENTING PATTERN TO WRAP-AROUND IN BAR 
1469 *: CARRERE RRR ERR REE EERE REE ERR E ERROR EERE RRR EOE 
1470 ; TEST 33 INCREMENTING PATTERN TO WRAP-AROUND IN BAR Piet 
1471 : MAINT MODE (INTERN. WRAP-AROUND ) } 
1472 LEAR REAR RREER RE RA RE EEER ERE REEA REE RE EERE RRR Eee ee 
1473 004642 000004 SCOPE 
1474 004644 005001 CLR R1 ; SET-UP 
1475 004646 005077 174214 CLR @BAR > SET-UP 
1476 004652 020177 174210 INCBA: CMP R1,@BAR ;SEE IF THEY ARE EQUAL 
1477 004656 001401 BEQ ~*4 SARE THEY EQUAL ? 
1478 004660 104000 HLT > THEY'RE NOT EQUAL 
1479 004662 062777 000002 174176 ADD #2, @BAR ;GET NEXT NUMBER 
1480 004670 062701 000002 ADD #2,R1 GET NEXT NUMBER 


1481 004674 001366 BNE INCBA ;DONE WITH TEST? IF NOT CONTINUE 
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34 TEST THAT FNCT BITS CONTROL DSTAT BIT SEQ 0048 
1483 .SBTTL TEST 34 TEST THAT FNCT BITS CONTROL DSTAT BITS 
1484 =. errr TeerrrTeT Ter TT eT TTTTTTTTTITITTTITTTTTT TILT TTT LTT 
1485 ; TEST 34 TEST THAT FNCT BITS CONTROL DSTAT BITS 
1486 : MAINTENANCE MODE (INTERNAL WRAP-AROUND ) 
1487 LL REE RETEREREERERE REE EE ER 
1488 004676 000004 x5: SCOPE 
1489 004700 005077 174164 CLR aCcSk ;CLR FUNCT BITS AND FORCE TO BE CSR #1 
1490 004704 012777 010000 174156 MOV #10000,aCSR sMAINT MODE 
1491 004712 032777 000916 174150 BIT #16,aCSR ; CHECK FUNCTION BITS 
1492 004720 001401 BEQ .+4 ;FUNCTION BITS CLEAR? 
1493 004722 104000 HLT ;FUNCTION BITS NOT CLEAR 
1494 004724 052777 174136 BIS #BIT1,aCSR ;SET FNCT1 
1495 032777 001000 174130 BIT #BIT9,aCSR sCHECK DSTAT C 
496 004740 001001 BNE +4 31S IT SET? 
1497 004742 104000 HLT :DSTAT C IS CLEAR 
1498 004744 032777 006000 174116 BIT #6000,aCSR 3; CHECK THAT DSTAT A AND DSTAT B ARE CLEAR 
1499 004752 001401 BEQ +4 + ARE THEY CLEAR 
1500 004754 104000 HLT ;CSTAT A AND/OR DSTAT B IS SET 
1501 004756 012777 010000 174104 MOV #10000,aCSR MAINT MODE 
1502 004764 052777 000004 174076 BIS #BIT2 acsR SET NCT2 
1503 004772 032777 002000 174070 BIT #eiTid, acsR CHECK DSTAT B 
1504 005000 001001 BNE +4 31S IT SET? 
1505 005002 104000 HLT :DSTAT B IS CLEAR 
1506 005004 032777 005000 174056 BIT #5000, aCSR :CHECK THAT DSTAT A AND DSTAT C ARE CLEAR 
1507 005012 001401 BEQ +4 SARE THEY CLEAR 
1508 005014 104000 HLT sDSTAT A AND/OR- DSTAT B IS SET 
1509 005016 012777 010000 174044 MOV #10000,aCSR SMAINT MODE 
1510 005024 052777 000010 174036 BIS #BI1T3,aCSR :SET FNCT3 
1511 005032 032777 004000 174030 BIT #B1T11,aCSR ;CHECK DSTAT A 
1512 0050460 001001 BNE +4 31S IT SET? 
1513 005042 104000 HLT ;DSTAT A IS CLEAR 
1514 005044 032777 003000 174016 BIT #3000,aCSR : CHECK THAT DSTAT B AND DSTAT C ARE CLEAR 
1515 005052 001401 BEQ +4 ARE THEY CLEAR? 
1516 005054 104000 HLT iDSTAT B AND/OR DSTAT C IS SET 


K 4 
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TEST 35 TEST THAT RESET CLEARS 6DR SEQ 0049 


.SBTTL TEST 35 TEST THAT RESET CLEARS BDR 

PUTT ITITIT TIT T Tit titi tii titi iti titi iti 
TEST 35 TEST THAT RESET CLEARS BDR 
MAINTENANCE MODE (INTERNAL WRAP-AR 


MORE RRSSESSLALELESESE SESE RES ERE S ERS ERE S ERS R RRR RRR RRR RRR RRR RRR RR RRR RDO OS 


1518 

1519 

1520 

1521 

1522 

1523 005056 000004 SCOPE 

1524 060 005077 174004 CLR acsrR FORCE TO BE CSR #1 
1525 012737 000010 014122 MOV #10, 1 COUNT 

1526 005072 012777 177777 173772 MOV #-1,@BDR ALL ONES TO BDR 

1527 005100 004737 014144 JSR PC, CKSWR 

1528 005104 000005 RESET : INIT 

1529 005106 052777 010000 173754 BIS #10000,aCSR MAINT MODE 

1530 005114 005777 173752 TST @BDR ;LOOKING FOR Z=-BIT TO SET 
1531 005120 001401 BEQ +4 :DID BDR GET CLEARED? 
1532 005122 104000 HLT ;BDR NOT CLEAR 


e% 
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TEST 36 TEST THAT ALL BDR BITS CAN BE SET SEQ 0050 
15% .SBTTL TEST 36 TEST THAT ALL BDR BITS CAN BE SET 
1535 PITISITITIITITI TTI TTT TTI TTT Titi iii iti titi tite 
15% ; TEST 36 TEST THAT ALL BDR BITS CAN BE SET 
1837 ; MAINTENANCE MODE (INTERNAL WRAP-AROUND 
1538 LARA AERA AEA AAA ARERR AERA ATTA AAR A RRR 
1539 005124 000004 SCOPE 
1540 005126 005077 173736 CLR ;FORCE TO BE CSR #1 
1541 005132 012737 002000 014122 MOV #5000 I COUNT 
1542 005140 012777 010000 173722 MOV #10000. aCSR ;MAINT MODE 
1543 005146 012777 177777 173716 MOV #-1,@BDR sSET ALL Ay IN BDR 
1544 005154 022777 177777 173710 CMP #-1.aBDR [LOOK ING FOR Z-BIT TO SET 
1545 005162 001401 BEQ +4 ;SEE IF ALL BITS GOT SET 


9. 005164 104000 HLT ;ALL BDR BITS AREN'T SET 


CZDRLAO=DR11W GEN NPR INTFC MACRO M1111 24=SEP=79 10:39 PAGE 42 


TEST 37 TEST THAT BDR CAN HOLD ALTERNATE ONES AND ZEROS SEQ 0051 
1549 -SBTTL TEST 37 TEST THAT BDR CAN HOLD ALTERNATE ONES AND ZEROS 
1550 ; AARARRR REE RRR ARERR EERE EERE E RR RRR RE ER ERE EAR E AREER EERE EET ES 
1551 ; TEST 37 TEST THAT BDR CAN HOLD ALTERNATE ONE'S AND ZERO'S 
1552 ; MAINTENANCE MODE (INTERNAL WRAP-AROUND) 

1553 LRA REAR A REAR AAA AAA AAA RERRR Ree AeA 
1554 005166 000004 SCOPE 

1555 005170 005077 173674 CLR :FORCE TO BE CSR #1 

1556 005174 012777 010000 173666 MOV #10000 acsrR :MAINT MODE 

1557 005202 012777 052525 173662 MOV #052525 ,aBDR sALT 0°S AND 1°S TO BDR 

1558 005210 022777 052525 173654 CMP #052525, a@BDR LOOKING FOR Z-BIT TO SET 

1559 005216 001401 BEQ +4 ;DOES BDR HAVE THE CORRECT PATTERN? 
1560 005220 104000 HLT ; :BDR IS WRONG 

1561 005222 012777 125252 173642 MOV #125252, aBDR zALT 1°S AND 0°S TO BDR 

1562 005230 022777 125252 173634 CMP #125252, @BDR ;LOOKING FOR Z-BIT TO SET 

1563 005236 001401 BEQ +4 ;DOES BDR HAVE THE CORRECT PATTERN 
1308 005240 104000 HLT :BDR 1S WRONG 


CZDRLAO=DR11W GE 
TEST 40 THAT GOI 


MACRO M1111 24=SEP=79 y ” PAGE ts ° 


LOCKS DATA XFERS FROM ODR TO I 


-SBTTL TEST 40 THAT GOING TO EIR BLOCKS DATA XFERS FROM ODR TO IDR 


'MARESSASAAL£LLELLSSE SELES ETE SEER SERRE SERRA AR RRR RRR RRR RRR R RR RRR 


e 
’ 
‘ 
Ps 


71 T0,BORW 


#5000 I COUNT 
#B1T12,aCSR 
#52525 ,aBDR 
#52525 .a@BDR 


+4 


#110000,aCSR 
#125252, aBDR 
wie? 25 
+4 


2, @BDR 
#52525, @BDR 
+4 


acsR 


es" S *. a THAT GOING TO EIR BLOCKS DATA TRANSFER FROM 


SE, RM _ EE  E eee eneeo NR a 


:FORCE TO BE CSR 


‘SET MAINT MODE 
‘SET ALT O'S AND 1°S TO BDR 
LOOK FOR CORRECT PATTERN 


:GO TO EIR 
SET ALT 1°S AND 0°S TO BOR 


+ SHOULD NOT CHECK OUT = OK 
;DATA SHOULD NOT poe GOTTEN THROUGH 
STEST FOR OLD PATTERN 
TALL IS FINE GO TO NEXT TEST 
;BDR IS WRONG 
[GO BACK TO CSR 


SEQ 0052 





CZDRLAO=DR11W GEN NPR INTFC MACRO M1111 24-SEP-79 10:39 PAGE 44 
TEST 41 INCREMENTING PATTERN TO WRAP-AROUND IN BDR SEQ 0053 


.SBTTL TEST 41 INCREMENTING PATTERN TO WRAP-AROUND IN BDR 
PETIT iittt iit iiit iii iititili ir iiti rire rrr 
TEST 41 INCREMENTING PATTERN TO WRAP-AROUND IN BDR 
MAINTENANCE MODE (INTERNAL WRAP-AROUND ) 


. 
. 
23 LAR RRRARARSALSALLALAALERARARARRRRARE RAR RRA RA RAR RRR RR RRR RRR SRR RRR SARS S SS 
T 


41: 
173502 aCSR sFORCE TO BE CSR #1 
010000 173474 #10000,aCSR sMAINT MODE 
014122 I COUNT 
; SET-UP 


173464 C aB ; SET-UP 
173460 ;SEE IF THEY ARE EQUAL 
B +4 ARE THEY EQUAL? 
" ; THEYRE NOT EQUAL 
173450 ;GET NEXT NUMBER 
1 ;GET NEXT NUMBER 
;DONE WITH TEST? IF NOT CONTINUE 





eee rer” GEN NPR INTFC 


aitaiwatiatad ff 
OONAOUWE 


attic atertatiutiabe 
RILAAAS. 


EERE 
: 


1625 005460 
54 


000001 
173352 


000400 
001166 
173330 
000004 


MACRO 


014122 
173420 
173412 


173374 
173370 
173364 
173356 


173340 


001166 


M1111 


C 
TSTRDY: 


DONE : 


24-SEP-79 10:39 PAGE 45 
TEST THAT GO CLEARS READY AND SETS AGAIN 


.SBTTL TEST 42 TEST THAT GO CLEARS READY AND SETS AGAIN 
UTTeITICT ITI TTT TI Ti Tit t iii iiitt titi tit iitii iti it titre tet 
TEST 42 TEST THAT GO CLEARS READY AND SETS AGAIN 

MAINTENANCE MODE (INTERNAL WRAP-AROUND ) 


. 
; FAAAAAAAARAAARAREAAEAARARAEERAEAAAAEARRRRERAAARARRRERRAERAARARERERRERRHREES 


acs 

35300 I COUN 
#10000, ScoR 
anes -acSR 
ae 


oe awCR 
I R 
#10, acsr 
#1,aCSR 
acsR 

+4 
#400,aCSR 
RDY CHK 
acsR 

DONE 

ae "alin 
TSTRDY 


FORCE TO BE CSR #1 


MAINT MODE 
;ONLY READY 


SET-UP WCR 

SET-UP BAR 

3FNCT3(NON BURST) 

;GO CLEARS READY 

; CHECK READY 

31S READY CLEAR? 

READY IS STILL SET 

SET CYCLE AND START XFERS 
;CLEAR READY CHECK 

CHECK READY 

;1F SET GO TO DONE 
:CHECKING TIME FOR READY TO BE SET 


7; IF RDYCHK GETS NEGATIVE IT TOOK TOO LONG 
; CHECK AGAIN 

SREADY GOT — BUT NEVER SET AGAIN 
:GO TO NEXT TES 


SEQ 0054 





CZDRLAO=DR11W GEN NPR INTFC 


173302 
000140 
000200 
014144 
000200 


001140 
173230 


005740 
173144 


001140 
173200 


MACRO M1111 
TEST 43 TEST THAT DR11W DOES INTERRUPT WITH PROC AT LEVEL 


x4: 


173206 
173266 


173250 


173304 


001312 


22: 


173232 


P3INT: 


173202 


P3INV: 


D 
24-SEP-79 eg PAGE 47 


.SBTTL TEST 43 TEST THAT DR11W DOES INTERRUPT WITH PROC AT LEVEL 
ECT iitt titi iit iii 
TEST 43 TEST THAT DR11-W DOES INTERRUPT WITH PROC AT LEVEL 3 
MAINTENANCE MODE (INTERNAL WRAP-AROUND ) 

INTERRUPT VIA ATTN 


CF AAAAAAAAARARARORARARAARAARRARAARRARARAAARAARARRARRARERAARARERRERAARERERE ED 


7 
4 





SEQ 0055 


acsR FORCE TO BE CSR #1 
#140, aPSw “STATUS AT LEVEL 3 
#B1T7,aCSR + CHECK READY BIT 
P3INV 1S IT SET? 
PC, CKSWR 
: INIT TO SET READY 
#RIT7,aCSR ‘SEE IF READY IS SET. NOW 
+6 [1S IT SET 
“READY CAN'T BE SET BY INIT 
#P3INT,@DRINV :SET UP INT VECTOR 
#340, aDRVS 
#10000, aCSR :MAINT MODE 
#101,aCSR 71£,GO 
#20004, aCSR ‘SET ATTN; ERROR SETS,SETS READY,AND INTERRUPT OCCURS 
#1000, TIME ; DELAY 
ue 
DRVS,aDRINV :RESTORE INTERRUPT VECTOR 


DRVS ;RESTORE TRAP CATCHER 
;DR11-W DIDN'T INTERRUPT 
;1F NO INTERRUPT,CLEAR ANY OUTSTANDING 
; INTERRUPT REQUEST IN BOARD HDWR. 


x7 

acsR CLEAR IE 

(SP)+, (SP)+ ;REPCSITION THE STACK AFTER AN INTERRUPT 
DRVS ,aDRINV RESTORE INTERRUPT VECTOR 

aDRVS RESTORE TRAP CATCHER 





CZDRLAO=DR11W GEN NPR_INTFC 
TEST 44 THAT DR11W DOES NOT INTERRUPT WITH PROC AT LEVEL 7 


.SBTTL TEST 44 THAT DR11W DOES NOT INTERRUPT WITH PROC AT LEVEL 7 
LRA RARER RRR R ERRATA ERR ERR ERENT 

TEST 44 TEST THAT DR11=-W DOES NOT INTERRUPT WITH PROC AT LEVE: 7 

MAINTENANCE MODE (INTERNAL WRAP-AROUND ) 

INTERRUPT VIA ATTN 


ye RARER EEEAEERERERAERAEAEAREAREREAHK HE EHREERERKKRE REA 


173122 
014122 
000340 
000200 
014144 


000200 


172762 
001140 
173020 


MACRO M1171 


M7: 


173022 
173102 


173064 


173120 P7INV: 


001312 


228: 


173044 


P7ERR: 


173022 


E 
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PC, CKSWR 
#B1T7,aCSR 
.+4 


#P7ERR,@DRINV 
aDRVS 


#20004 ,aCSR 
#1000, 7 IME 
ME 


TI 
22s 
DRVS,aDRINV 
aDRVS 

x1 
(SP)+,(SP)+ 
acSR 

DRVS ,aDRINV 
aDRVS 


FORCE TO BE CSR #1 
STATUS AT LEVEL 7 
CHECK READY BIT 
71S IT SET 


: INIT TO SET READY 
SEE IF READY | IS SET NOW 


:1S READY SET? 


[READY CAN'T BE SET BY INIT 
SET UP INT VECTOR 


oe an MODE 
iSET ATTN; ERROR SETS,SETS READY,AND INTERRUPT OCCURS 
; DELAY 


3CLR IE,OUTSTANDING INTERR REQUEST 
RESTORE STACK 
CLEAR IE 


;DR11-wW INTERRUPTED, BUT IT SHOULDN'T HAVE 












NNNNNNNN 

GERAKAN SSS 
BERS 
EVEN 





CZDRLAO=DR11W GEN NPR INTFC 
TEST 45 THAT DR11W DOES INTERRUPT AND INDICATE BR LEVEL 


-SBTTL TEST 45 THAT DR11W DOES INTERRUPT AND INDICATE BR LEVEL 


[RERARAAAAAARARERRERAEAEAAEAEAKEAAARRARRAAARERRARAERRRAARRARARRRERR AREER EES 


000340 
172732 
000200 
014144 


000200 


023412 


023412 


172650 
172724 


172706 


172742 


001312 


172666 


023412 
172512 


172630 
023412 


MACRO M1111 


FL RRAAARAARERAEAERHARRARRAERAARARRERRARAARRAERARAAAAAAARAAAEARRRARRARRARREES 


1: 


NSTAT: 


PINV: 


228: 


BRLEV: 


:265$: 


F 5 
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TEST 45 THAT DR11W DOES INTERRUPT AND INDICATE BR LEVEL 
MAINTENANCE MODE (INTERNAL WRAP-AROUND ) 
INTERRUPT VIA ATTN 


SCOPE 


MOV 
TYPDS 
TYPE 
TYPE 


#340, aPSW 
acsR 

eee ¢ -@CSR 
PC, CKSWR 
#BIT7,aCSR 
+4 


ABRLEV, oe 


#340,aD 
#10000, acer 
#101,aCSR 
#20004 ,aCSR 
#1000, TIME 
TIME 
22$ 
DRVS.@DRINV 
aDRVS 


aPSW,LEVEL 
#40,aPSW 


NSTAT 
(SP)+,(SP)+ 
acsR 
DRVS ,@DRINV 


aDRVS 
#177437,LEVEL 


LEVEL ,R1 


64$ 
/TEST 40: DR11W 


LEVEL ,~(SP) 


-SCRLF 
-$CRLF 


5 ld AT LEVEL 7 

FORCE TO BE CSR #1 
: CHECK READY BIT 
ZIS IT SET 


;INIT TO SET READY 

sSEE IF READY | IS SET NOW 
31S READY SET? 

SREADY CAN'T BE SET BY INIT 
;SET UP INT VECTOR 


;MAINT MODE 


:1E,G0 
ESS Sr ean SETS, SETS READY,AND INTERRUPT OCCURS 
; DELAY 


CLR IE,OUTSTANDING INTERR REQUEST 


;SAVE OLD STATUS LEVEL 
NEW PSW 
TRY AGAIN 
; RESTORE STACK 
EAR IE 


GET 


7BR 
: INTERRUPT 
SLEVEL 


23 TYPE ASCIZ STRING 
;GET OVER THE ASCIZ 
INTERRUPT LEVEL =/ 


77 SAVE LEVEL FOR TYPEOUT 
2:GO TYPE--DECIMAL ASCII WITH SIGN 


ey tear GEN NPR INTFC 
TEST 46 THAT GIVING A GO 


1790 006534 
36 


CER PEERS RE: 


006604 
1802 006606 


MACRO M1111 


6 5 
24-SEP-79 10:39 PAGE 52 


WITHOUT CLEARING ERROR CAUSES INTRPT 


172422 
006 


006632 
172326 


006614 
172306 
177777 
172276 

00 


0066 
000001 


006632 
172246 


010156 


172362 
172276 


LL EAAAARAEARAAEAEREARRERRARERRRAE AREER AERAREAEKKERRARAEERRRARARRERRERER EERE 


FORCE TO BE CSR #1 

; INTERRUPT VECTOR TO ERRDO 

; INTERRUPT STATUS TO LEVEL 4 
SLET THE ie INTERRUPT 


155: 


228: 


ERRDO: 


ERRDO1: 


.SBTTL TEST 46 THAT GIVING A GO WITHOUT CLEARING ERROR CAUSES INTRPT 


J LARA AAARAAARAERARARAAAARAEARAAERARAAARRAARARARAAAARAARAARRARAARARAARERARS 


TEST 46 TEST THAT GIVING A GO WITHOUT CLEARING A PREVIOUS 


ERROR CAUSES ANOTHER INTERRUPT 


FOR THIS TEST, 


THE NORMAL INTERRUPT MECHANISM SHOULD BE WORKING 


MAINTENANCE MODE (INTERNAL WRAP-AROUND ) 


acsR 
MERRDO, aDRINV 
Ac RVS 


#1000, TIME 
TIME 
223 
T60 
(SP)+,(SP)+ 
acsR 

+4 
#ERRDO1,aDRINV 
#-1,awCR 

acsR 


T60 
(SP)+,(SP)*+ 
acsR 

+4 


PC ,NORMAL 


. 
e 


7NO DR11-W INTERRUPT 
;CLEAR OUTSTANDING INTERR. REQST. 


[MAINT MO 


TIE, GO 
: SET ATTN AND INTERRUPT 
ELAY 


a STACK 
;TEST CSR 
SERROR SET? 


ERROR IS CLEAR = SHOULD HAVE ERROR 
; INTERRUPT VECTOR TO ERRDO1 
:PREVENT CAUSING ANOTHER ERROR 


SET-UP WCR 
:GO TO CSR 


;DELAY;WAIT FOR INTERRUPT 


3NO DR11-W INTERRUPT 
:CLEAR INTERRUPT REQUEST 


; CHECK ERROR 
ERROR SET? 


ERROR IS SET - SHOULD BE CLEAR 
;PREVIOUS ERROR WAS CLEAR 


SEQ 0058 


— 


CZDRLAQ=DR11W GEN NPR INTFC 
TEST THAT FUNCTION BITS INCREMENT WITH MAINT MODE TRANSF 


.SBTTL TEST 47 THAT FUNCTION BITS INCREMENT WITH MAINT MODE TRANSFERS 


JF AAARERAAAARAAAAERARRARRAAERARKARARARAAARRAAAARARRAAARARAARARARRAERERAAEES 


TEST 47 TEST THAT FUNCTION BITS INCREMENT WITH MAINT MODE TRANSFERS 


MPRA RRRSRSERESSLASSLASLE SES RE RRR SSSR RRR RR RRR RRR RR RRR RRR RAR SARE RARER RASS SS | 


47 


172230 
002000 


007024 
172100 
000700 
001202 


001202 
000010 


MACRO M1111 


160: 


014122 


172146 


172140 
172132 
001312 


5 
24-SEP-79 10: + 1 ae PAGE 33 


MFLOOP: MOV 


T6O0CHK: CMP 


001202 


79000, I COUNT 
INBUF , @BA 
#1, FNCCNT 


#T60CHK , @DRINV 


DRINL ,a@DRVS 
FNCCNT, TEMP 
TEMP 


E 
TEMP ,awCR 


aPsw 
#10000,aCSR 
#501,aCSR 
#1000, TIME 
TIME 

1$ 


T61 
(SP)+,(SP)+ 
acSR,R1 
ania 


R 
FNCCNT,R1 
+4 

FNCCNT 
#10, FNCCNT 
161 

MF L OOP 


FORCE TO BE CSR 


; SET-UP BAR 
;GET READY FOR CHECKING 


; INTERRUPT VECTOR 
S INTERRUPT VECTOR PRIORITY TO DRINL 
[NUMBER OF — ERS 


[SET-UP FOR 1 TRANSFER 


SLET THE DR11-W INTERRUPT 


[MAINT MODE 
:1E,CYCLE & GO 
;WAIT FOR INTERRUPT 


3NO INTERRUPT OCCURRED 

;1F NO INTERRUPT,CLEAR ANY OUTSTANDING 
; INTERRUPT REQUEST IN BOARD HDWR. 

:GO TO NEXT TEST 


;LOWER BYTE OF CSR TOR 
[GET RID OF READY, CYCLE IE BECAUSE OF MAINT MODE 
:MOVE IT RIGHT ONE PLACE 


CHECK AGAINST PNCCNT 
>SHOULD BE EQUAL 
FUNCTION BITS DIDN'T INCREMENT IN MAINT MODE 


;GET READY FOR NEXT PASS 
;ONLY 10 BECAUSE ANC T3=) 
IF ITS EQUAL GO CHECK DATA 


GO TO ZERO 


[DO IT AGAIN 


SEQ 0059 


I 
eee teat GEN NPR INTFC MACRO M1111 24=SEP=79 10:39 PAGE 54 


TEST 50 TEST FOR 10 MAINT MODE TRANSFERS SEQ 0060 
1849 .SBTTL TEST 50 TEST FOR 10 MAINT MODE TRANSFERS 
1850 LRA AERA REA A AAA RAAT eS 
1851 : TEST 50 TEST FOR 10 MAINT MODE TRANSFERS 
1852 SL RRR ERR EERE EERE REET ER RE 
1853 007024 000004 T61: SCOPE 
1854 007026 005077 172036 CLR aCSR :FORCE TO BE CSR #1 
1855 007032 012737 000010 001156 MOV #10,BUFLEN ;BUF LEN=10 
1856 007040 013737 001156 001164 MOV BUF LEN, WCLEN PREPARE NUMBER FOR WCR 
1857 007046 005437 001164 NEG WCLEN :2°S COMPLEMENT OF BUFLEN 
1858 007052 004737 007714 JSR PC,LODBUF ;LOAD IN BUFFER WITH INCREMENTING PATTERN 
1859 007056 004737 007752 JSR PC, CHKBF F ;LOAD CHECK BUFFER WITH MODIFIED INCREMENTING PATTERN 
1860 013777 001164 171774 MOV WCLEN. awWCR :SET UP WCR 
1861 007070 013777 00 171770 MOV INBUF BAR :SET UP BAR 
1 007076 012777 177777 171766 MOV #~-1,aBDR sMAINT AIDE 
1863 007104 012777 007174 172024 MOV MT61CHK,@DRINV ; INTERRUPT VECTOR 
1864 007112 013777 001074 172020 MOV DRINL ,@DRVS ; INTERRUPT STATUS AT PRIORITY DRINL 
5 120 005077 171656 CLR aPSW LET DR11-W INTERRUPT 
1866 007124 012777 0 171736 MOV #10000, aCSR MAINT MODE 
1867 007132 052777 000501 171730 BIS #501,aCSR iIE,CYCLE & GO 
1868 007140 012737 001000 001312 MOV #1000, TIME sWAIT FOR INTERRUPT 
1869 007146 005337 001312 i$: DEC TIME 
1870 007152 001375 BNE 1$ 
1871 007154 104000 HLT NO INTERRUPT OCCURED 
1872 007156 000005 RESET 31F NO INTERRUPT,CLEAR ANY OUTSTANDING 
1873 ; INTERRUPT REQUEST IN BOARD HDwWR. 
1874 007160 004737 010016 JSR PC, INTA 
1875 007164 004737 010116 JSR PC ,DATCHK 
1876 007170 000137 007206 JMP 161.5 
1877 007174 022626 T61CHK: CMP (SP) +, (SP)+ 
1878 007176 004737 910016 JSR PC, INTA CLEAR IE,CHECK ERROR,READY,WC=0,8 BAR 


sa 007202 004737 010116 JSR PC’ DATCHK 


rey tc. iw GEN NPR 


INTFC 


MACRO M1111 


51 10 MAINTENANCE MODE XFERS 


1934 007514 
1935 


5 

Ww 
= 
s 


010156 


171374 
171366 


161.5: 


aes ee ee 


WRONG1: 


3$: 


.SBTTL TEST 51 10 MAINTENANCE MODE XFERS 


PITITIT TTT I TIT TTTITTI TTT TTT iti titi iti titi 


J 
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TEST 51 TEST THAT DOING 10 MAINTENANCE MODE XFERS 
WITHOUT EXPERIENCING AN INTERRUPT WILL INHIBIT 
"GO" FROM INITIATING FURTHER XFERS 


SCOPE 


~~ »acsR 
1$ 

PC,INTA 

PC ,DATCHK 
OK 
(SP) +, (SP)+ 
NRM 
#10000,aCSR 


#1000, TIME 
oo ag a 


rrore acsR 
TIME 


3$ 
#10700, aCSR 
+4 


NRM 
(SP)+,(SP)+ 


PC ,NORMAL 


MARBRBRBRBALASZALLALASASAESESERARE SRR RRR ARERR RRR RRR RAR RRR RRR RRR RASA RASS ESS 


;FORCE TO BE CSR #1 
a, CPU INTERRUPT 
LA 


0 
“ PREPARE NUMBER FOR WCR 
32°S COMPLEMENT OF BUFLEN 
;LOAD IN BUFFER WITH INCREMENTING PATTERN 
;LOAD ys BUFFER WITH MODIFIED INCREMENTING PATTERN 
iSET UP WCR 


; INTERRUPT VECT 

> INTERRUPT STATUS AT PRIORITY DRINL 
SMAINT MODE 

sI1E,CYCLE & G 

:WAIT FOR XFERS COMPLETE 


:CLR IE,CHECK ERROR,READY,WC=0,BAR 
; CHECK PROPER DATA 


; SHOULD NOT INTERRUPT 
3NO INTERRUPT 1ST TIME 


;MAINT MODE 
:1E.CYCLE,GO 
ONLY READY MAINT, IE,& CYCLE 


:CSR_ IN ERROR 
; CHECK THAT NO XFERS WERE MADE 


:MFERS SHOULD HAVE BEEN INHIBITED 
TWILL ELIMINATE ANY OUTSTANDING INTERRUPT REQUESTS 


rey STACK 
;SHOULD NOT INTERRUPT 2ND TIME 


CZDRLAQ=DR11W GEN NPR INTFC MACRO M1111 24-SEP-79 10:39 PAGE 56 


rest 52 TEST FOR 200 NPR TRANSFERS IN MAINT MODE SEQ 0062 
1937 .SBITL TEST 52 TEST FOR 200 NPR TRANSFERS IN MAINT MODE 
1938 eTITI TTT I TI TIT Ti tii titi tii ttt iii iii tiie titi ttt te 
1939 ’y TEST 52 TEST FOR 200 NPR TRANSFERS IN MAINT MODE 
194 J FARRAR AARRAERAEAERAARAARERAKERARAERREAEARAARRERARAAAARRAERAARAREARRAREAR EHD 
1941 007520 000004 SCOPE 
1942 007522 005077 171342 CLR acsR :FORCE TO BE CSR #1 
1943 007526 012737 002000 014122 MOV #2000, ICOUNT 
1944 007534 012737 200 001156 MOV #200 ,BUF LEN :LENGTH OF BUFFER = 200 
1945 007542 013737 001156 001164 MOV BUFLEN,WCLEN § :PREPARE NUMBER FOR WCR 
1946 007550 005437 001164 NEG WCLEN ie" S COMPLEMENT OF BUFLEN 
1947 007554 004737 007714 JSR PC , LODBUF “LOAD INBUF WITH INCREMENTING PATTERN 
1948 007560 004737 007752 JSR PC; CHKBF F “LOAD CHKBUF WITH MODIFIED [NCREMENTED PATTERN 
1949 007 013777 001164 171272 MOV WCLEN, awCR :SET UP WCR 
1950 007572 013777 001152. 171266 MOV INBUF - @BAR ET UP BAR 
1951 007600 012777 1 171264 MOV #1, aBDR “MAINT AIDE 
1 7606 012777 007676 171322 MOV #T62CHK,@DRINV INT VECTOR 
1953 007614 013777 001074 171316 MOV DRINL ,@DRVS ‘INT VECTOR AT PRIORITY DRINL 
1954 007622 005077 171154 CLR aPsw ‘LET THE DR11-W INTERRUPT 
1955 007626 012777 171234 MOV #10000, aCSR ‘MAINT MODE 
1956 007634 052777 000501 171226 BIS #501,aCSR “IE,CYCLE & GO 
1957 007642 012737 001000 001312 MOV #1000, TIME 
1958 007650 005337 001312 1$: DEC TIME 
1959 007654 001375 BNE is 
1960 007656 104000 HLT :NO INTERRUPT OCCURED 
1961 007660 000005 RESET ‘IF NO INTERRUPT, CLEAR ANY OUTSTANDING 
1962 ‘ INTERRUPT REQUEST IN BOARD HDWR. 
1963 007662 004737 010016 JSR PC, INTA 
1964 007666 004737 010116 JSR PC‘ DATCHK 
1965 007672 000137 010276 MP 143 
1966 007676 022626 T62CHK: CMP (SP)+, (SP)+ 
1967 007700 004737 010016 JSR PC, INTA :CLR IE.CHECK ERROR,RESDY,WC=0,8 BAR 
1968 007704 004737 010116 JSR PC’ DATCHK “CHECK THAT CORRECT DATA WAS TRANSFERRED 
1969 007710 000137 010276 MP 142 


CZDRLAO=DR11W GEN NPR INTFC 
TEST 52 TEST FOR 200 NPR TRANSFERS IN MAINT MOD 


MACRO M1111 ales =SEP=79 10:39 PAGE 57 


1971 007714 013702 001152 LODBUF: MOV INBUF ,R2 ;MOVE STARTING ADDRESS OF INBUF TO R2 
1972 007720 005037 001160 CLR LENCHK CLEAR LENGTH CHECK 
1973 007724 005022 CLR (R2)+ [CLEAR STARTING ADDRESS OF INBUFF AND INC BY 2 
1974 007726 005237 001160 LOADA: INC LENCHK ZINC LENGTH CHECK BY 1 
1975 007732 023737 001160 001156 CMP LENCHK,.BUFLEN ;CHECK FOR 
1976 007740 001403 BEQ LDEXIT 31S _INBUF FILLED? 
1977 007742 013722 001160 MOV LENCHK, (R2) + ; NEXT BUFFER WORD 
0077 767 BR LOADA : CONT INUE CHECKING 
1979 007750 207 LDEXIT: RTS PC EXIT 
1980 007752 013702 001154 CHKBFF: MOV CHKBUF ,R2 : STARTING ADDRESS > CHECK-BUFFER TO R2 
1981 007756 005037 001160 CLR LENCHK CLEAR LENGTH CHECK 
1982 007762 5003 CLR 3 CLEAR R3 
1983 007764 010322 CHKA: MOV R3,(R2)+ ;MOVE R3 TO CHKBUF ADDRESS AND INC BY 2 
1984 0077 010322 MOV R3,(R2)+ MOVE R3 TO NEXT CHKBUF ADDRESS AND INC BY 2 
1985 007770 737 2 001160 ADD #2 ,LENCHK ADD 2 TO LENGTH CHECK 
1986 007776 023737 001160 001156 CMP LENCHK, BUFLEN ;CHECK FOR DONE 
1987 010004 BPL +10 :IS P iaete oie FILLED? 
1988 010006 062703 000002 ADD #2R R3 [NEXT NUMBER FOR BUFFER 
1989 010012 000764 BR CONTINUE FILLING 
1990 010014 000207 RTS Pe EXIT 
1991 010016 042777 100 171044 INTA: BIC #B1T6,aCSR :CLEAR IE 
1992 010024 005777 171040 TST acsSR = CHECKING FOR ERROR 
1993 010030 10000 BPL +4 ;ERROR SET? 
1994 010032 104 HLT SERROR BIT IS SET 
1995 010034 105777 171030 TSTB acsrR CHECKING READY BIT 
1996 010040 100401 BMI +4 :IS READY SET 
1997 010042 104000 HLT FALSE INTERRUPT = ERROR AND READY ARE CLEAR 
1998 010044 005777 171014 TST awCR ;TEST1 FOR wCR=0 
1999 010050 001401 BEQ +4 WAS IT EQUAL ? 
2000 010052 104 HLT :wC NOT = 0 
2001 010054 013702 001156 MOV BUFLEN,R2 ;BUFFER LENGTH TO R2 
2002 010060 3702 001156 ADD BUFLEN,R2 NUMBER OF XFERS TIMES 2 
2003 01 063702 001152 ADD INBUF , CORRECT BAR 
2004 010070 005737 001314 TST CABLE 71S THIS CABLE TESTING? 
2005 010074 001401 BEQ 1$ ;NO 
010076 005202 INC R2 ;CABLE MODE TESTING LEAVES BIT 0 

7 OF BAR SET.THEREFORE MUST CHECK 
2008 :FOR ODD ADDRESS. 
2009 010100 027702 170762 1$: CMP @BAR ,R2 ;CHECKKING BAR 
2010 010104 001401 BEQ +4 31S BAR CORRECT 
2071 010106 104000 HLT :NO 
2012 010110 004737 010156 JSR PC ,NORMAL 
oi7 010114 000207 RTS PC sEXIT 
2015 010116 013702 001154 DATCHK: MOV CHKBUF , %2 STARTING ADDRESS OF CHECK BUFFER TO R2 
2016 010122 013703 001152 MOV INBUF , £3 ;STARTING ADDRESS OF IN BUFFER TO R3 
2017 010126 005037 001160 CLR LENCHK ee LENGTH CHECK 
2018 010132 005237 001160 COMPAR: INC LENCHK ;MAKE A COMPARISON 
2019 010136 022223 CMP (%2)+,(43)+ 31S THE DATA CORRECT? 
2020 010140 001401 BEQ +4 {BRANCH i OK 
2021 010142 104 HLT BAD DAT 
2022 010144 023737 001160 001156 CMP LENCHK ,BUFLEN ;SEE IF THE BUFFER HAS BEEN CHECKED 
2023 010152 001367 BNE COMPAR ;BUFFER CHECKED? 
2024 010154 000207 RTS %7 
2025 010156 013777 001140 170752 NORMAL: MOV DRVS,@DRINV RESTORE DR11-8 INTERRUPT VECTOR 

26 010164 005077 170750 CLR aDRVS ZRESTORE DR11-B INTERRUPT STATUS 
2027 010170 012777 000340 170604 MOV #340, aPSWW SRESTORE PROC TO PRIORITY LEVEL 7 





CZDRLAO=DR11W GEN NPR INTFC 


2028 010176 000207 

2029 010200 012702 052525 DATOCK: 
2030 010204 013703 001152 

2031 010210 5037 001160 

2032 010214 001160 COMPRR : 


104000 
10226 023737 001160 001156 
001367 


07 
2042 010246 042777 one 170614 ERRCHK: 


2043 010254 005777 170610 
010 100001 
2045 010262 104000 
010264 105777 170600 
2047 010270 100401 
2048 010272 104000 


2049 010274 000207 
2050 
2051 


MACRO M1111 24-SEP-79 10:39 PAGE 57=1 
TEST 52 TEST FOR 200 NPR TRANSFERS IN MAINT MODE 


%7 
#52525, %2 
INBUF , £3 
ee 
LENCHK 
2 (43) 


LENCHK , BUF LEN 


COMPRR 
%2,(%3)+ 
+4 


%7 
#BIT6,aCSR 
acsSR 

+4 


acsR 
+4 


%7 


EXIT 

DATO NUMBER TO R2 

iSTARTING ADDRESS OF IN BUFFER TO R3 
Nae LENGTH CHECK 

MAKE A ‘AR 


COMPAR I SON 
1S THE DATA CORRECT? 
“BAD DAT ATA. “ 
‘SEE IF THE BUFFER HAS BEEN CHECKED 
‘BUFFER CHECKED? 


CHECK END OF BUFFER + 
i SEE | Bin, MANY WORDS WERE TRANSF ERRED 


sEXIT 

CLEAR IE 

; CHECKING FOR ERROR 

SERROR SET? 

ZERROR BIT IS SET 

; CHECKING READY BIT 

SIS RDY SET 

tet ENTRY = ERROR AND READY ARE CLEAR 


SEQ 0064 


N 
CZDRLAO=DR11W GEN NPR INTFC MACRO M1111 24-SEP-79 10:39 PAGE 58 
TEST 53 THAT DOING A DATO TO THE DIODE MEMORY CAUSES NEX 


.SBTTL TEST 53 THAT DOING A DATO TO THE DIODE MEMORY CAUSES NEX 

PUTITITITIITITITITI TTI TLI TTT iTi li titii titi titi iti tii itt tte ttt 
TEST 53 TEST THAT DOING A DATO TO - * DIODE MEMORY CAUSES NEX 
MAINTENANCE MODE (INTERNAL WRAP AR 


| lubehasnstoneonntnenntonaneapademaatennenasnnisaaamiainaineal 
42: 

;FORCE TO BE CSR #1 

;SET UP WCR 

;SET UP BAR 

; INTERRUPT VECTOR TO NEXCHK 


; INTERRUPT STATUS TO LEVEL DRINL 
iLET PS DR11-W INTERRUPT 
;MAIN T MODE 


7FNCT1,XBA16,XBA17 
#501 ,aCSR Z1E, CYCLE ,GO 
#1000, TIME DELAY 


3NO DR11-W INTERRUPT 
CLEAR ANY OUTSTANDING INTERRUPT REQUESTS 


;SAVE CSR IN R5S 
TEST CSR 
SERROR SET? 
ERROR NOT SET 
STEST FOR READY 
sREADY SET? 
sREADY ISN'T SET 


#B1T14,R5 
+4 


NEX 1S CLEAR 
170426 acsrR ;RETURN TO CSR #1 
(SP) +, (SP)+ SRESTORE THE STACK 
2086 010156 PC ,NORMAL 
2087 010450 
2088 
2089 
2090 










LAO=DR11W GEN NPR INTFC 


2099 010460 
10466 
10474 


10516 


= 
oO 
— 
mw 
N 
N 
N 


170316 


040000 


ao os 3 hh hh 
=t ad <b ad od od 
SSHVRARAN=SSBLKARALLS 


Nm 
ad 
mr 


PONMINMPININMGNINGNGANININ NNN NON NNonoNnofnonys 
Who 


170262 
170260 
014144 


010156 


CZDR MACRO M1111 
rest 54 CROSSING A 32K BOUNDRY DOESNT CAUSE A BAOF OR FOR 


.SBTTL TEST 54 CROSSING A 32K BOUNDRY DOESNT CAUSE A BAOF OR FORCE ERROR 


es < eeRERRERRRERAERARERRRERERERERRRERERERERR RE REREH ERR ERE RAH E RENEE RETA TE 


TEST 54 TEST THAT CROSSING A 32K BOUNDRY DOES NOT CAUSE 
A BAOF AND DOES NOT FORCE AN ERROR 


. 
LL AAAAAARAAARERAAAAARERTRARRRERARAARARERARERAARRARRARARARARRARAEEREAHEERE EE 


FORCE TO BE CSR #1 
SET UP WCR 


170332 


BACF CK: 


B 6 
24-SEP-79 oe Ps Fe 59 


acs 
ao I COUNT 
4-20, awcR 


#-2, @BAR 
#BAOF CK, @DRINV 


DRINL ,@DRVS 
#1000, TIME 


aPSwW 
#563,aCSR 
TIME 

1$ 


acsR,R5 
(SP)+,(SP)+ 
R5 


.+4 

R5 

+4 
#40000,R5 
.+4 


@BAR 
acsR 
PC,CKSWR 


PC ,NORMAL 


THIS ENDS MAINTENANCE MODE TESTING 


SEQ 0066 











;SET UP BAR FOR PROC STATUS ADDRESS 
; INTERRUPT VECTOR TO BAOF CK 
; INTERRUPT STATUS TO LEVEL DRINL 


7LET THE DR11-W INTERRUPT 
:CYCLE.IE, FNCT1, XBA17, XBA16, AND GO TO CSR 


;WAIT FOR INTERRUPT 
;NO_ INTERRUPT 
; SAVE CSR 


SRESTORE THE STACK 
TEST CSR 

ZERROR SET? 

ERROR NOT SET 

TEST FOR READY 

[READY SET? 

READY ISN'T SET 

CHECK NEX 

SARE THEY CLEAR? 

;NEX IS CLEAR 

:CLEAR BUS ADDRESS REGISTER 
SRETURN TO CSR #1 


Zs INIT 





le et ad ot td es LU 
Ww Ww Ww AWG 
SSBSRARAY 


ronrone 
ah od ond cad 
SeRS 
fwn— 


2 
2145 010622 


2159 010710 
2760 010714 
2161 010720 
2162 010722 
2163 010730 
2164 010734 
2165 010740 


CZDRLAO=DR11W GEN NPR INTFC 


170242 
014144 
002000 


013132 
001000 


010722 
170200 


170174 
127000 


013132 


MACRO M1114 


24=SEP=79 10:39 PAGE 60 


- SBTTL 
. SBTTL 
- SBTTL 


CBi : 
170466 


170452 18: 


170160 


001314 


B 
YESCBL: MOV 
NOCBL : 


2° SWITCH REG. 






CABLE MODE TESTING 


;CABLE MODE TESTING( WRAP-AROUND 
; CABLE IN USER SLOTS) 


‘tort 55 THRU 62 ARE ‘ete y IF: 
- SWITCH + a 10 IS _SET,OR 


10 & 9 ARE DOWN(0),AND THE CABLE IS 


IN PLACE: THE PROGRAM WILL TEST FOR CABLE. 
THE FOLLOWING ROUTINE DETERMINES ie IS IN 


:0R- SWITCH ee ae OPTION IS age 3 


PC, CKSWR 
#2000. aSwR 
1000, aSWR 
2$ 

YESCBL 
acsR 
acsR,R1 
#127000,R1 
NO 


FORCE TO BE CSR #1 


tne MODE TESTS ONLY? 


iYES 
sPERFORM CABLE TESTS UNCONDITIONALLY? 
7NO;DETERMINE CABLE STATUS BY PROGRAM DETECTION 


FORCE CSR #1 
CHECK CSR 
7; TEST FOR ERROR,ATTN,DSTATA,DSTATB,D-TATC 


31F ATTN IS SET,CABLE IS IN 


;DON*T DO CABLE TESTS 





D 6 
CZDRLAO=DR1iw GEN NPR INTFC MACRO M1111 oo? -~SEP=79 10:39 PAGE 61 
TEST 55 TEST FOR 1 DAT] NON BURST MODE TRANSF 





2167 .SBTTL TEST 55 TEST FOR 1 DATI NON BURST MODE TRANSFER 
2168 SERRE REA EEA EEE REAEA EEE E RR EERR EERE EE REE EE RETR ERER EERE REE 
2169 ; TEST 55 TEST FOR 1 DATI NON BURST MODE TRANSFER 

2170 : CABLE MODE (WITH WRAP AROUND CABLE IN USER SLOTS) 

2171 te are rc eee Oe oe dak OF eee 
2172 010744 005077 170120 To. CLR ;FORCE TO BE CSR #1 

2173 610750 012737 010764 014126 MOV oT 33STR_RETURN TREVISE SCOPE RETURN 

2174 010756 012737 000001 001314 MOV #1,CABLE [PRINT CABLE MESGE WITH ERROR PRINT 
2175 010764 T33STR: 

2176 010764 005077 170100 CLR acsR 

2177 010770 005777 170074 TNPR1: TST acsrR ;CHECK ERROR BIT 

2178 010774 100001 BPL +4 71S IT CLEAR? 

2179 010776 104000 HLT ;ERROR SHOULD NOT BE SET 

2180 011000 022777 000200 170062 CMP #200,aCSR : CHECK READY 

2181 011006 001401 BEQ +4 

2182 011010 104000 HLT + SOMETHING OTHER THAN READY IS SET 
2183 011012 012777 177777 170044 NPRRDY: MOV #-1,awCR ;SET UP FOR 1 TRANSFER 

2184 011020 012777 001146 170040 MOV #NPR1 , ABAR ; TRANSFER FROM BUS ADDRESS IN NPR1 
2185 011026 005077 170040 CLR @BDR GET READY TO RECEIVE DATA 

2186 011032 012737 052525 001146 MOV #52525 ,,NPR1 ;SET UP TRANSFER DATA 

2187 0110460 012777 011114 170070 MOV #INTB,aDRINV ; INTERRUPT VECTOR TO INTB 

2188 011046 012777 000005 170064 MOV #5 ,aDRVS > INTERRUPT PRIORITY TO LEVEL 5 
2189 011054 005077 167722 CLR aPSwW LET THE DR11-W INTERRUPT 

2190 011060 012777 000110 170002 MOV #110, aCSR NON BURST(FNCT3) IE 

2191 011066 052777 000401 167774 BIS #401,aCSR :CYCLE,GO 

2192 011074 005037 011102 CLR 1$+2 SWAIT FOR NPR AND INTERRUPT 

2193 011100 005227 000001 1$: INC #1 

2194 011104 001375 BNE 1$ 

2195 011106 104000 HLT 7NO DR11-W INTERRUPT 

2196 011110 000005 RESET :1F NO INTERRUPT,CLEAR ANY OUTSTANDING 
2197 ; INTERRUPT REQUEST IN BOARD HDWR. 
2198 011112 000424 BR T33CLR 7 CLEAR IE 

2199 011114 004737 010246 INTB: JSR PC, ERRCHK : CLEAR IE,.CHECK FOR ERROR 

2200 011120 005777 167740 TST awCR ; TEST WCR 

2201 011124 001401 BEQ +4 1S WCR EQUAL TO ZERO? 

2202 011126 104000 HLT :WCR NOT EQUAL TO ZERO 

2203 011130 022777 001151 167730 CMP #NPR1+3,@BAR ; COMPARE CORRECT BAR WITH SAR 
2204 ;CABLE MODE TESTING LEAVES BIT 0 
2205 + OF BAR SET. THEREFORE MUST 

2206 ;CHECK FOR ODD ADDRESS 

2207 011136 001401 BEQ +4 71S THE BAR CORRECT? 

2208 011140 104000 HLT BAR IS WRONG 

2209 011142 022777 052525 167722 CMP #52525,aBDR ;CHECK FOR CORRECT DATA 

2210 011150 001401 BEQ +4 :DATA GET TRANSFERRED? 

2211 011152 104000 HLT ;BAD DATA IN BDR 

2212 011154 004737 010156 JSR PC ,NORMAL 

2213 011160 022676 CMP (SP) +, (SP)+ sRESTORE STACK 

2214 011162 000404 BR TNPRO 7GO TO NEXT TEST 

2215 011164 005077 167700 T33CLR: CLR acsR :CLEAR IE 

2216 011170 004737 010156 JSR PC ,NORMAL 


E 6 
CZDRLAO=DR11W GEN NPR_INTFC MACRO M1111 24-SEP-79 10:39 PAGE 62 
TEST 56 TEST FOR i DATO NON BURST MODE TRANSFER 


.SBTTL TEST 56 TEST FOR 1 DATO NON BURST MODE TRANSFER 
eTTIITTTT iti tii iitri titi titi itititi iit titt iii titi ii titi tii 
: TEST 56 TEST FOR 1 DATO NON BURST MODE TRANSFER 
: CABLE MODE (WITH WRAP AROUND CABLE IN USER SLOTS) 


ce TARR RSRRERSLASASASLESESAS ALARA AAAS ARES AAA AR ARERR RRR RRR RRR RRR RARER SDSS 


TNPRO: 
C acs ;FORCE TO BE CSR #1 
167654 P ;SET UP FOR 1 TRANSFER 
167650 ; TRANSFER TO BUS ADDRESS IN NPR1 
1 GET READY TO RECEIVE DATA 


OnN 


io 
NAONWAS 


SS 


MoNnoNoNnonofnoery 
ws 
os 


167642 
167700 
167674 


167612 
167604 


NPR 
#52525 ,@BDR 
#INTC, @DRINV 
DRINL , @DRVS 


aPSwW 
#112,aCSR 
#401,aCSR 
1$+2 


;SET UP TO TRANSFER DATA 
; INTERRUPT VECTOR TO INTC 


S INTERRUPT STATUS TO LEVEL DRINL 
PROC STATUS TO ZERO 
;DATOCFNCT1) ,FNCT3,1E 

:CYCLE,GO 

;WAIT FOR NPR AND INTER 


18 

NO DR11-W INTERRUPT 

IF NO INTERRUPT,CLEAR ANY ee 
TSECUR INTERRUPT REQUEST IN BOARD HDWR 


BR [CLEAR IE 
010246 : PC,ERRCHK [CLEAR IE,CHECK FOR ERROR 
167550 TS awCR TEST WCR 

+4 31S WCR EQUAL TO ZERO? 

sWCR EQUAL TO ZERO 

#NPR1+3, @BAR ; COMPARE CORRECT BAR WITH BAR 
CABLE MODE TESTING LEAVES BIT 0 
OF BAR SET.THEREFORE MUST 
; CHECK FOR ODD ~ 3 “a 
+4 Ist HE BAR CORRECT? 
NPR1 452525 ; CHECK FOR CORRECT DATA 
+4 ; CORRECT DATA TRANSFERRED? 
BAD DATA 


RESTORE STACK 
:GO TO NEXT TEST 


001151 167540 


WA 
NSO 


001146 052525 


£¥¥ 
SNOKNMON 


010156 


PC ,NORMAL 
(SP)+, (SP) + 
BR 137 

167510 2 acSR CLEAR IE 
010156 J PC ,NORMAL 


WAG 


ed ed ed eed ed ceed ed eed eed eed 
Ww 


el ed ed ad od 


§ 





—-_ 


2267 
2268 011364 


CZDRLAO=DR11W GEN NPR INTFC 
TEST 57 STRING OF 200 DATIS BURST MODE XFERS 


MACRO M1111 


001156 
001164 
167440 


167464 
167402 


167374 
001312 


167332 


137: 


18: 


T37CHK: 


F 6 
24-SEP=79 10:39 PAGE 63 


.SBTTL TEST 57 STRING OF 200 DATIS BURST MODE XFERS 

Perit it ittt iii iitt iti lit ii iitiititii iii titties re, 
TEST 57 STRING OF 200 DATI'S BURST MODE XFERS 

CABLE MODE (WITH WRAP AROUND CABLE IN USER SLOTS) 


. 
ap PRR RRRAARESALASASALESESASSRE SERS ARERR REARS R RRR RARER RRR ARR RAR RASS R DSSS SD 


7300, BUF LEN 
PC ,LODBUF 
BUF LEN, WCLEN 


WCLEN 
WCLEN, awCR 
INBUF <@BAR 


aTShCrK. s@DRINV 


DRINL,@DR 
aPSwW 
#100,aCSR 
#401,aCSR 
#1000, TIME 


TIME 
1$ 


PC NORMAL 
140 
(SP) +, (SP)+ 


PC, INTA 
“ie, aBDR 


FORCE TO BE CSR #1 
;LENGTH OF BUFFER=200 
;LOAD THE BUFFER es caacteansc PATTERN 


;PREPARE NUMBER FOR 
se! Ss Sgt tee OF BUFLEN 


CTOR 
ZINT VECTOR TO PRIORITY DRINL 
:LeT THE DR11-W INTERRUPT 
*CYCLE,GO 

WAIT FOR INTERRUPT 


;1F NO INTERRUPT,CLEAR ANY OUTSTANDING 
; INTERRUPT REQUEST IN BOARD HDWR. 


CLR _IE,CHECK ERROR,READY,WC=0,88AR 


: CHECK THAT WORD #200 OF [NBUF IS IN BAR 


IT? 


‘BAD DATA IN BDR 


SEQ 0070 


G 6 
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TEST 60 STRING OR 200 DATOS BURST MODE XFERS SEQ 0071 
-SBTTL TEST 60 STRING OR 200 DATOS BURST MODE XFERS 
2297 PP RRR AEE RRR RRR REE RRR Ee 
2298 ; TEST 60 STRING OR 200 DATO'S BURST MODE XFERS 
2299 : CABLE MODE(WITH WRAP AROUND CABLE IN USER SLOTS) 
2300 LRA ARERR ERR RETREAT AAA AAR ERAT AR AAA 
2301 011544 000004 140: SCOPE 
2302 011546 005077 167316 CLR ;FORCE TO BE CSR #1 
2303 011552 012737 000200 001156 MOV 7500, BUF LEN : LENGTH OF BUFFER=200 
2304 011560 004737 007714 JSR PC ,LODBUF LOAD THE BUFFER WITH INCREMENTING PATTERN 
2305 011564 013737 001156 001164 MOV BUF LEN, WCLEN [PREPARE NUMBER FOR WCR 
2306 011572 005437 001164 NEG WCLEN :2'S COMPLEMENT OF BUFLEN 
2307 011576 013777 001164 167260 MOV WCLEN.@wCR +SET UP WCR 
2308 011604 013777 001152 167254 MOV INBUF , @BAR ET UP BAR 
2309 011612 012777 052525 167252 MoV -#52525.aBDR SET _UP BDR 
2310 011620 012777 011704 167310 MOV #T4OCHK,@DRINV ; INTERRUPT VECTOR 
2311 011626 013777 001074 167304 MOV DRINL ,aDRVS : INTERRUPT VECTOR TO PRIORITY DRINL 
2312 011634 005077 167142 CLR aPSwW LET THE DR11-W INTERRUPT 
2313 011640 012777 000102 167222 MOV #102,aCSR 7 1E,FNCT1 
2314 011646 052777 000401 167214 BIS #401,aCSR >CYCLE ,GO 
2315 011654 012737 001000 001312 MOV #1000, TIME WAIT FOR INTERRUPT 
2316 011662 005337 001312 1$: DEC TIME 
2317 011666 001375 BNE 1$ 
2318 011670 104000 HLT 
2319 011672 000005 RESET 71F NO INTERRUPT,CLEAR ANY OUTSTANDING 
2320 7 INTERRUPT REQUEST IN BOARD HDWR. 
2321 011674 004737 010156 JSR PC ,NORMAL 
2322 011700 000137 011716 JMP T56 
2323 0117046 022626 T4OCHK: CMP (SP) +, (SP)+ 
2324 011706 004737 010016 JSR PC,INTA CLEAR IE,CHECK ERROR,READY,w(=0,% BAR 
2325 011712 004737 010200 JSR PC ,DATOCK 7 CHECK INBUF 





H 6 
CZDRLAO=DR11wW GEN NPR INTFC MACRO M1111 24=SEP=79 10:39 PAGE 65 


TEST 61 STRING OF 200 DATIS NON-BURST MODE 


SEQ 0072 





2327 .SBTTL TEST 61 STRING OF 200 DATIS NON-BURST MODE 
2328 LL RR RAE EEE AAA AAT A AAA ARATE e 
2329 ; TEST 61 STRING OF 200 DATI'S NON-BURST MODE 
2330 : CABLE MODE (WITH WRAP AROUND CABLE IN USER SLOTS) 
2331 DLE RRO RARER REE ERR ER REE RERER KERR R EA 
2332 011716 156: SCOPE 
2333 011720 005077 167144 CLR cL ENGT TO BE CSR #1 
2334 011724 012737 2 001156 MOV 7500, BUF LEN LENGTH OF BUFFER=200 
2335 011732 737 =007714 JSR PC, LODBUF LOAD THE BUFFER WITH INCREMENTING PATTERN 
2336 011736 013737 001156 001164 MOV BUF LEN, WCLEN : PREPARE NUMBER FOR WCR 
2337 011744 005437 001164 NEG WCLEN :2'S COMPLEMENT OF BUFLEN 
2338 011750 013777 11 167106 MOV WCLEN, @wCR SET-UP WCR 
2339 011756 013777 001152 167102 MOV INBUF , BAR : SET-UP BAR 
2340 011764 012777 177777 167100 MOV #-1,@BDR sMAINT AIDE 
2341 011772 012777 012056 167136 MOV ATS6CHK,@DRINV ; INT VECTOR 
2342 012000 013777 001074 167132 MOV DRINL ,@DRVS zINT VECTOR TO PRIORITY DRINL 
2343 012006 5077 166770 CLR aPSW LET THE DR11-w INTERRUPT 
2344 012012 012777 000110 167050 MOV #110,a@CSR sFNCT3,IE 
2345 012020 052777 000401 167042 BIS #401,aCSR CYCLE ,GO 
2346 012026 012737 001000 001312 MOV #1000, TIME WAIT FOR INTERRUPT 
2347 012034 5337 001312 1$: DEC TIME 
2348 012040 001375 BNE 1$ 
2349 012042 104000 HLT 
2350 012044 000005 RESET 71F NO INTERRUPT,CLEAR ANY OUTSTANDING 
2351 ; INTERRUPT REQUEST IN BOARD HDwR. 
2352 012046 004737 010156 JSR PC ,NORMAL 
2353 012052 000137 012100 IMP TS? 
2354 012056 022626 TSOCHK: CMP (SP) +, (SP) + 
Stes Bi Sone 4 010016 = PC,INTA CLEAR IE,CHECK ERROR,READY,WC=0,8 BAR 
2357 012066 022777 000177 166776 CMP #177 ,@BDR + CHECK | THAT WORD #200 OF INBUF IS IN BAR 
2358 012074 001401 BEQ 4 i1S_ IT 
104000 HLT ;BAD DATA IN BDR 


2359 012076 
2360 


CZDRLAO=DR11wW GEN NPR INTFC 
>TRING OF 200 DATOS NON=BURST MODE 


TEST 62 


010156 
010016 
010200 


MACRO M1111 


757: 


TS7CHK: 


24=SEP=79 10:39 PAGE 66 


.SBTTL TEST 62 STRING OF 200 DATOS NON=BURST MODE 

tH WTETTTTTITITILITTLI TT LITLE LITLE TLL LLL LLL LLL 
TEST 62 STRING OF 200 DATO'S NON-BURST MODE 

CABLE MODE (WITH WRAP AROUND CABLE IN USER SLOTS) 


M 'MARBEBREBSRRASLASLALASASARSASARERESERR RARER RRR RAR RRR RRR RRR RRR RRR RAR RRR SSS S| 


;FORCE TO BE CSR #1 
700, BUF LEN [LENGTH OF BUFFER=200 
PC ,LODBUF ;LOAD THE BUFFER gel a PATTERN 
BUFLEN, WCLEN [PREPARE NUMBER FOR w 
WCLEN 72'S COMPLEMENT OF BUFLEN 
WCLEN, @WCR ;SET UP WCR 


INBUF . BAR :S 
#52525, aBDR ‘SET UP BDR 
#157CHK,@DRINV :INTERRUPT VECTOR 


oor aDRVS ; INTERRUPT VECTOR TO PRIORITY DRINI 
aPSW ZLET THE DR11-W INTERRUPT 

#102, acsr cFNCTI,IE 

#401,aCSR :CYCLE,GO 

#1000, TIME WAIT FOR INTERRUPT 

un 


:1F NO INTERRUPT,CLEAR ANY OUTSTANDING 
; INTERRUPT REQUEST IN BOARD HDWR. 


PC ,NORMAL 

(SP)+,(SP)+ 

PC,INTA SCLEAR IE,CHECK ERROR,READY,wC=0,8 BAR 
PC ,DATOCK 3 CHECK INBUF 


SEQ 0073 


0 
2424 tay 


2432 012574 


032737 


CZDRLAO=DR11W GEN NPR INTFC 
TEST 63 DETERMINE N=CYCLE SWITCH SETTING 


000001 
001200 
013132 
001200 
100000 
000400 
077777 


000100 
012334 


000400 


012600 
001312 


077777 
012314 
077777 
000100 
012466 


000400 


012600 
001312 


077777 


012446 


MACRO M1111 


001144 


166564 
166556 


001312 


166454 


001312 


001312 


166322 


001312 


J_ 6 
24=SEP=79 10:39 PAGE 67 


SEQ 0074 


.SBTTL TEST 63 DETERMINE N-CYCLE SWITCH SETTING 

OTT II ITT TTT ITT iti Titi it iit titi titi titi itt 
TEST 63 DETERMINE N-CYCLE SWITCH SETTING 

HAVE SWITCH FLIPPED AND WAIT UNTIL IT IS DONE 

THIS IS DONE FIRST PASS ONLY 


SL RAAAARARARERAERARAAAREERERERRARERRARERARRAARERARRAARTAARRERAARAERARER EES 


#81T0,BORW 


#81T8,aCSR 
FLOP 
#77777 , TIME 
#100,R5 


FLAG 
#B1T15,aCSR 


sWERE WE HERE BEFORE 


:NO 
YES DONE THIS PASS 
;SET FLAG FOR NEXT PASS 


if 

sSET TIMER 

;SET PRINT DELAY 

ii TYPE ASCIZ STRING 
OVER THE ASCIZ 


64$ 3GET 
<CRLF>/CHANGE POSITION OF N=CYCLE BURST Sw TCH/ 


#B1T8,aCSR 
30$ 


SWT1 
TIME 


20$ 
#77777,T IME 
R5 

20$ 


FLIP 
#77777, 1 IME 
#100,R5 

5$ 


CHECK FOR CHANGE 
NOT Y 


: IN 
;TELL AGAIN TO FLIP SWITCH 
:SET TIMER 
;SET PRINT DELAY 
ie ASCIZ STRING 

;GET OVER THE ASCIZ 


648 
<CRLF>/CHANGE POSITION OF N-CYCLE BURST SWITCH/ 


#B1T8,aCSR 
50$ 


SW 
TIME 


40$ 
#77777 ,T IME 
R5 


40$ 
FLOP 


CHECK FOR CHANGE 
NOT YE 


:DEC “yf a 
CHECK A 
i TELL AGAIN" TO FLIP SWITCH 





kK 6 
CZDRLAO=DR11W GEN NPR INTFC MACRO M1111 24=SEP=79 10:39 PAGE 68 
TEST 64 STRING OF 200 DATIS BURST MODE XFERS (SWITCH FLIPPED) SEQ 0075 


.SBITL TEST 64 STRING OF 200 DATIS BURST MODE XFERS (SWITCH FLIPPED) 
FERRARA AEE AERA EEEEREERAEERERERERAE EEE ARERR EEA REE RRR 

TEST 64 STRING OF 200 DATI'S BURST MODE XFERS (SWITCH FLIPPED) 

CABLE MODE (WITH WRAP AROUND CABLE IN USER SLOTS) 


MARRS ESAALSALLSZALLLASLARSSSS ES ERE REE RSA RAS RRA R RRR A RAR RRR SERRA SERRA SS OS 


SuT1: SCOPE 


CLR ;FORCE TO BE CSR #1 

MOV #200, —— LENGTH OF BUFFER=200 

JSR PC ,LODBUF ;LOAD THE BUFFER WITH INCREMENTING PATTERN 
MOV BUF LEN, WCLEN [PREPARE NUMBER FOR WCR 

NEG WCLEN 32°S COMPLEMENT OF BUFLEN 

MOV WCLEN, @WCR SET UP WCR 

MOV INBUF , @BAR :SET UP BAR 

MOV #~-1,@BDR :MAINT AIDE 


MOV #SWINT1,@DRINV :INT VECTOR 
MOV DRINL ,a@DRVS ‘INT VECTOR TO PRIORITY DRINL 


CLR aPsw :LET THE DR11-W INTERRUPT 
MOV #100,aCSR 
BIS #401, aCSR =CYCLE,GO 
MOV #1000, TIME ‘WAIT FOR INTERRUPT 
1$: DEC TIME 
BNE 1$ 
HL 
RESET :1F NO INTERRUPT,CLEAR ANY OUTSTANDING 
: INTERRUPT REQUEST IN BOARD HDWR. 
JSR PC ,NORMAL 
JMP SwT2 
SWINT1: CMP (SP) +, -(SP)+ 
JSR PC, IN iCLR IE, “CHECK ERROR ,READY ,wC=0,8BAR 
cme “77. aBor :CHECK THAT WORD #200 OF INBUF IS IN BAR 


71S IT 
HLT : BAD DATA IN BDR 


CZDRLAQ=DR11W GEN NPR INTFC 
TEST 65 STRING OR 200 DATOS BURST MODE XFERS (SWITCH FLIPPED) 


MACRO M1111 


2 
24-SEP-79 10:39 PAGE 69 


.SBTTL TEST 65 STRING OR 200 DATOS BURST MODE XFERS (SWITCH FLIPPED) 


FERRARA AREER AAR EAE EE EERARREREE EERE EEAARRERERERRERE RARER 


TEST 65 STRING OR 200 DATO’S BURST MODE XFERS (SWITCH FLIPPED) 


CABLE MODE (WITH WRAP AROUND 


CABLE IN USER SLOTS) 


MASSES GSSSAL£L£A£ SESE SE EEE SESE RSE SERS ERE RE RRR RARE SARS S RS RRR RRR SRSA DEES 


ies 


SWINT2: CMP 
J 


#500, BUF LEN 
PC, LODBUF 


BUFLEN, -WCLEN 


we 
WCLEN, @wCR 
INBUF . @BAR 
#52525, aBDR 


#SWINT2, ADRINV 


DRINL ,@DRVS 
aPSwW 
#102,aCSR 
#401,aCSR 
#1000, TIME 


1$ 


PC ,NORMAL 
END 


(SP)+, (SP)+ 
PC, INTA 
PC,DATOCK 


;FORCE TO BE CSR #1 
:LENGTH OF BUFFER=200 
;LOAD THE BUFFER WITH INCREMENTING PATTERN 
[PREPARE NUMBER FOR WCR 
32'S COMPLEMENT OF BUFLEN 
: SET UP WCR 
;SET UP BAR 
SET UP BDR 
; INTERRUPT VECTOR 
T INTERRUPT VECTOR TO PRIORITY DRINL 
;LET a See INTERRUPT 


; E,GO 
[WAIT FOR INTERRUPT 


;1F NO INTERRUPT,CLEAR ANY Naat 
‘INTERRUPT REQUEST IN BOARD HDWR 


CLEAR IE,CHECK ERROR,READY,WC=0,8 BAR 
CHECK INBUF 


THIS ENDS CABLE MODE TESTING 


SEQ 0076 


6 
CZDRLAO-DR1 iW NTFC MACRO M1111 24-SEP-79 10: 7 PAGE MC e 
TEST 65 STRING ATOS BURST MODE XFERS (SwITCH FLIPPED) SEQ 0077 


FERRARA AAARAARAAEARAAREAAEKRRRRERARRARERRRAERREERERERERRARRRERER ERE 


; 2, END OF PASS 


Seminal aiding iim ata clea aati 


000207 177566 END: #207 94177566 ;RING BELL 

177564 a775 7756 

165642 @PNTPAS ; INCREMENT PASS COUNT FOR THIS BOARD 
001316 HL TDE? : ERROR OCCUR THIS PASS? 


165632 :YES INCR. ERROR COUNT FOR THIS BRD. 
000001 : " [HAVE CABLE TESTS BEEN DONE? 


014755 YES 
015372 


ooo 

WWWIWWIWNIA WINN 
ed ah cad ad a ct ed edd cd ed 
NESENVSESEN 


$3 


014723 : 2 
015372 PC, TTOUT 


014622 yg tone R2 ;PRINT “END PASS' 
015372 PC, TTOUT 
165562 MOV @PNTPAS , - (SP) oy @PNTPAS FOR TYPEOQUT 

:GO TYPE--DECIMAL ASCII WITH SIGN 


WUAIWWw 
NBR 


it 
BAVARN 


001354 , SENULL 
000042 42 ,R2 
NX TBRD 


PC, (R2) 


#2,PNTRAD sPOINT TO NEXT BOARD FOR NEXT PASS 
#2,PNTVAD 

#2,PNTPAS 

#2,PNTERR 

BEGIN 





CZDRLAO=DR11W GEN NPR INTFC 


MACRO M1111 


N 6 
24-SEP=79 10:39 PAGE 71 


TEST 65 STRING OR 200 DATOS BURST MODE XFERS (SWITCH FLIPPED) 


032777 000001 165546 
001422 


165540 001142 
001070 
000001 


000200 

165516 

105737 001143 
406 


100000 
013374 
58 013370 165474 
2559 013374 012737 000001 
560 0 7 014144 
165714 


2 1142 
2563 013416 012637 013770 
gt ease Beers 013772 


001316 
020000 


000215 165540 
165532 
000212 165524 
165516 
2572 013460 010237 013762 

3464 0 


001144 
015014 
015163 
001351 
001320 
001354 

1 000240 
2585 013546 013746 013770 
001354 
000240 
165402 
orcas 013772 
001354 
000240 
165354 


3620 1 5 
3622 012737 013650 000004 
3630 010546 


165430 


165410 


165362 


PITTI TITI LILI LITT Li tei iii iii iiiiiiii iii iit iiiiiii iii iti iii iii 
ENTERED WITH SYSTEM TRAP CALL (HLT) 
PRINT OUT THE ERROR PC AND STATUS REGISTER 


MARRBERGLZASLZLLALASASSLALESE EES E SEES ERE RRR RRR RRR RRR RR RRR RR RRR RRR RRA R RSD DS 


Ft 
10$: 


20$: 


15$: 
25%: 


#B1T0,aCSR 
10$ 
tp 


#1,R1 
#200,R1 
acsR,R5 
EIR+1 

20$ 
#B1T15,R5 
20$ 


acSR,R5 
#1 ,HLTDET 


(SP) +, SAVPC 
(SP) +, SAVCC 
~(SP) ,-(SP) 
#215,aTPB 
aTPs 


74 
#212,aTPB 
aTPS 


" LF 
TESTNO, (SP) 
, SENULL 
240,a7PB 
SAVPC, = (SP) 
, SENULL 
#240, aTPB 
arPs 
SAVCC,=(SP) 
. SENULL 
#240, a1PB 
alPs 


74 
#3$ ,BUSERR 
R5,-(SP) 


CHECK WHICH CSR 
;WE ARE IN CSR #1 
sSAVE CSR #2 
;ADDRESS OF CSR INTO R 
HAS ADD Py GPPER BYTE 


TEST FOR ANY ERROR 
3NO ERROR BIT(S) SET 
ee ont h WAS SET = RESTORE IT 


NUE 
TSAVE CSR_IN RS 
2 SAYS ERROR OCCURRED THIS PASS 


[TEST FOR INHIBIT PRINT OUT 
IF SO, BRANCH OVER PRINT 
SPC OF FAILING ROUTINE 
:CC_OF ERROR CONDITION 

: REPOSITION THE STACK 


sLINE FEED 


sSAVE R2 
SAVE R3 
ZSAVE RS 


7;SAVE TESTNO FOR TYPEQU 
3:G0 TYPE--OCTAL ASCTI CALL DIGITS) 


te SAVPC FOR TYPEOU 
3GO0 TYPE--OCTAL ASCII CALL DIGITS) 
SPACE BETWEEN WORDS 


io SAVCC FOR TYPEOU 
:GO TYPE--OCTAL ASCII CALL DIGITS) 


PRINT SPACE 
SPRINTER DONE 
; BRANCH WHEN NOT DONE 


«SAVE RS FOR TYPEOUT 


SEQ 0078 


7 
CZDRLAO=DR11W GEN NPR INTFC MACRO M1111 24-SEP-79 10:39 PAGE 84-4 


TEST 65 STRING OR 200 DATOS BURST MODE KFERS (SWITCH FLIPPED) SEQ 0079 
013632 104402 TYPOC 33GO TYPE=-OCTAL ASCII(ALL DIGITS) 

2597 013634 104401 001354 TYPE , SENULL 
2598 013640 012737 000006 000004 MOV #6 ,BUSERR 
2599 013646 000405 BR 4$ 
2600 013650 022626 3$: CMP (SP)+, (SP) + 
2601 013652 012737 000006 000004 MOV #6 ,BUSERR 
2602 013660 000401 BR 5$ 
2603 013662 000246 4$: NOP 
2604 013664 005737 001314 5$: TST CABLE PRINT CABLE MSSGE? 
2605 013670 001404 BEQ 2$ :NO 
2606 013672 104401 015057 TYPE -MSG5 

7 013676 104401 015131 TYPE 
2608 013702 013702 013762 2$ MOV SAVR2 ,R2 

1 013703 013764 MOV SAVR3 ,R5 

2610 013712 013704 013766 MOV SAVR4 ,R& 
2611 013716 737 014144 JSR PC,.CKSWR 
2612 013722 005777 165400 1$ TST as CHECK SR FOR HALT SWITCH 
2613 013726 BPL +4 
2614 013730 000000 HALT ;HALT ON ERROR UP IN 
2615 013732 023737 000042 000046 CMP OA42, W446 sARE WE IN ACT11 AUTO MODE ? 
2616 013740 001001 BNE +4 ;BRANCH ON NO 
2617 013742 000000 HALT HALT ON OERROR IF IN ACT11 AUTO MODE 
2618 013744 037727 165356 000400 BIT @SWR 4400 ;GO TO NEXT BOARD? 
2619 013752 001402 BEQ CONTIN 71F NO,CONTINUE THIS BOARD 
cose 013754 000137 013132 JMP END 
2622 013760 000002 CONTIN: RTI 
2623 013762 000000 SAVR2 
2624 013764 000000 SAVR3 
2625 013766 000000 SAVR4: QO 
2626 013770 000000 SAVPC: 0 
oy 4 013772 000000 SAVCC: 0 


CZDRLAO=DR11W GEN NPR INTFC MACRO M1111 24=SEP=79 10:39 PAGE 72 


wW 
TEST 65 STRING OR 200 DATOS BURST MODE XFERS (SWITCH FLIPPED) 


fF AAAAAARAAAAAAAAARARAARARAEERAAERERRARRARARREARRARARRRAREORARERRARHAARRS 


SCOPE LOOP ROUTINE ENTERED BY USER TRAP 


JC EAAAARARARARARARRARRAARAARARRARKRRARARAARARAAARAARREAARRKARARARERARAER 





2634 

2635 013774 004737 014144 SCOPEA: JSR PC,CKSWR 

2636 014000 032777 040000 165320 BIT #40000, aSwR 

2637 014006 001003 BNE SCOPEB ;SCOPE, BIT IS A ONE 

2638 014010 011637 014126 MOV aSP ,RETURN ;NO = SAVE PC FOR NEXT TIME 
2639 014014 000002 RT] RETURN IN SEQUENCE 

2640 014016 022606 SCOPEB: CMP (SP)+,SP REPOSITION THE STACK 

2641 014020 012677 164756 MOV (SP) +,@PSwW 


2642 014024 000177 000076 JMP @RE TURN SCOPE RETURN 





2669 
2670 014130 
2671 


CZDRLAO=DR11W GEN NPR INTFC 
TEST 65 STRING OR 200 DATOS BURST MODE XFERS (SWITCH FLIPPED) 


014144 
040000 


164744 


014144 
004000 


014124 
014124 
014124 


014126 
001320 


000200 


MACRO M1111 


165264 


165242 
014122 


dD 7 
24-SEP=79 10:39 PAGE 73 





SEQ 0081 


ez TARR RRR RRRRRRRRRSRRESARARAR ARERR SRR RARER AR ARR RRR RRR RRR RSA R ARRAS SRA S ESS S| 


SCOPE OR/AND ITERATION LOOP FOR EACH TEST 4000 TIMES 


LL AAAAAAAAAARERERAAEREARARERAEEAARREERREARAERARRRRARARRARARERERRERRARHERS 


SCOPEC: JSR 


SCOPEG: CLR 


I COUNT: 
SCOPEF: 0 
RETURN: 


200 


; TEST SR FOR SCOPE 


YES SCOPE 
[FIRST @PASS (@PASCNT=0) ? 
:BR IF YES, INHIBIT ITERATIONS 


TEST FOR ITERATION 
; INHIBIT ITERATION 


EXIT = DONE 

; INCREMENT COUNT 

;LOOP SOME MORE 

;CLEAR COUNT 

SAVE SCOPE RETURN POINTER 


RETURN INLINE-NEXT TEST 


;COUNT LOCATION FOR ITERATION LOOP 
[ADDRESS OF LAST TEST 


7 
CZDRLAOQ=DR11W GEN NPR INTFC MACRO M1111 24-SEP-79 10:39 PAGE 5. 
TEST 65 STRING OR 200 DATOS BURST MODE XFERS (SWITCH FLIPPED) 





7 
gor? J FARRAR AAEAAAAAAARARRREAARARRERERRRARARERARRARARAARRARRRAARARAARARARAREERY 
2675 : CHECK SWITCH REGISTER ROUTINE. CHECKS FOR *G TO ALLOW CHANGING 
2676 : OF LOC. 176 
2677 LRA AAR ERAERA ERE EE RRR ERE ERA EERE TEER RARER ERE EERE RRR REE EE 
2678 014134 000000 TEMPST: .WORD 0 
2679 014136 000000 COUNT: .WORD 0 
2680 014140 000000 RDSW: .WORD QO 
268! 014142 000000 TB: “WORD 0 
2683 014144 105777 165020 CKSWR: TSTB  alkS :YES,WAIT FOR 
2684 014150 100152 BPL OUT “READY, GET CHARACTER 
2685 014152 017737 165014 014142 MOV aTkB,TIB : AND STRIP OFF 
2686 014160 042737 177600 014142 BIC #177600,TIB THE GARBAGE 
2687 014166 005737 000042 TST are2 > IF AUTO MODE,DON'T CHECK 
2688 014172 001012 BNE 1$ [FOR CNTRL S 
2689 014174 022737 000023 014142 CMP #23,T1B 
2690 014202 001006 BNE 1$ :NOT CNTRL S 
012702 014560 MOV #$CNTS,R2 
2692 014210 004737 015372 JSR PC, TTOUT 
2693 014214 000137 021230 JMP RUNSUM : LEAVE PROGRAM AND PRINT RUN SUMMARY 
2694 014220 022737 000176 001326 18: CMP ASWREG, SWR SOF TW. SWITCH REG PRESENT? 
2695 014226 001123 BNE OUT 
2697 014230 022737 000007 014142 CMP 47,1713 sIS If A&A <*@ 
2698 014236 001117 BNE ouT 
2699 014240 012702 014552 MOV #$CNTG,R2 
2700 014244 004737 015372 JSR PC, TTOUT 
2701 014250 012702 014573 CNTLU: MOV MOUTSWR,R2 
2702 014254 004737 015372 JSR PC, TTOUT 
2703 014260 017746 165042 MOV aSwR,-(SP) i: SAVE aSwR FOR TYPEOUT 
014264 104402 TYPOC 'GO TYPE--OCTAL ASCII(ALL DIGITS) 
2704 014266 104401 001354 TYPE  SENULL 
2705 014272 012702 014603 MOV #INNEW,R2 
2706 014276 004737 015372 JSR PC, TTOUT 
2707 014302 005037 014134 CLR aa TEMPST 
2708 014306 005037 014134 $READ: (CL TEMPST 
2709 014312 012737 000007 014136 MOV #7, COUNT 
2710 014320 004737 014500 1$: JSR PC-TTIN :GO READ A CHARACTER 
2711 014324 042737 177600 014142 BIC #177600, TIB ‘STRIP OFF GARBAGE 
2712 014332 122737 000025 014142 CMPB ss #25, TIB ‘IS IT A *U? 
2713 014340 001001 BNE 2$ “BRANCH IF NOT 
2714 014342 000742 3$: BR CNTLU SSTART OVER 
2715 014344 122737 000015 014142 2$: (MPR s«aW#'15,,TIB ‘IS IT A <CR>? 
2716 014352 001011 BNE 4$ ‘BRANCH IF NOT 
2717 014354 012702 014567 MOV #CARLF ,R2 
2718 014360 004737 015372 JSR PC, TTOUT 
2719 014364 022737 O00007 014136 CMP #7, °QUNT sWAS IT FIRST CHARACTER 
2720 014372 001036 BNE 7$ “CHANGE SWR IF NOT FIRST ONE 
2721 014374 000440 8S: BR OUT “GET OUT 
2722 014376 122737 000060. 014142 4$: CMPB ss #60, TIB 
2723 014404 003004 BGT 
2726 014406 122737 000067 074142 (MPR s«a#67, TIB 
2725 014414 002005 BGE 6$ 
2726 014416 012702 014614 S$: MOV #SQUEST,R2 
2727 014422 006737 015372 JSR PC, TTOUT 


2728 014426 000745 BR 3$ START OVER IF NOT LEGAL CHARACTER 


F | 
CZDRLAO=DR11W GEN NPR INTFC MACRO M1111 24=SEP=79 10:39 PAGE 74-1 ce 0083 
Q 


TEST 65 STRING OR 200 DATOS BURST MODE XFERS (SWITCH FLIPPED) S 
2729 014430 006337 014134 6$: ASL TEMPST 
2730 014434 006337 014134 ASL TEMPS] 
2731 614440 006337 014134 ASL TEMPST 
2732 014444 142737 000060 014142 BICB © #60, TIB GET NITIY=GRITTY 
2733 014452 153737 014142 014134 BISB. «TB, TEMPST 
734 014460 005337 014136 DEC COUNT ZONLY WANT 6 DIGITS 
2735 014464 001754 BEQ 5$ 
2736 014466 000714 BR 1$ 
2737 014470 013777 014134 164630 7$: MOV TEMPST ,aSWR CHANGE SWITCH REGISTER CONTENTS 
2738 014476 000207 OUT: — RTS PC [RETURN TO PROGRAM 





2745 

2746 014500 
2747 014504 
2748 014510 


2754 014540 
2755 014542 


2757 014550 


0 
2765 eres | 


0 
2766 014723 
014726 





CZDRLAO=DR11W GEN NPR INTFC 


164464 


164440 
164434 


014142 


ee ae et oe od 
yg bet poe 
ie Se ee ele. 


UER 
RAO 


G 7 
MACRO M1111 24=SEP=79 10:39 PAGE 75 
TEST 65 STRING OR 200 DATOS BURST MODE XFERS (SWITCH FLIPPED) " SEQ 0084 


PSS=5=NPSR 
NOMWNAANMON- 


— 
Ln 


S 


RS 
Ow 





JF ATAAAAARARAEARAARAAAARAERERAARARARRARRARARARAAAARAARAARAAAARARERAAERRERRE 


TTY READ SUBROUTINE te eeearnne 


. 
fF AAAARARARARAAERAATRAARARAEARARAARARRAARAARAAAAKRAARRARARAARRAARAARARAERAAERES 


TTIN: CLR aTKS 
CLR aTKB 
CLR TIB 
INC aTKs 
TTIN]: TSTB aTKS 
BPL TTINI 
MOV aTkKB,TIB 
TTIN2: TSTB aTPs 
BPL TTIN2 
MOVB TIB,aTPB 
RTS PC 


SCNTIG: .ASCIZ '_*G 8" 
SCNTS: .ASCIZ / _*S 8/ 


CARLF: .ASCIZ ‘_ 8° 
OUTSWR: .ASCIZ '_SWR= 8° 


INNEW: .ASCIZ ° NEW= &' 


SQUEST: .ASCIZ ‘_? _@' 
SENPAS: .ASCIZ ° _ END PASS # 8° 


$TITLE: .ASCIZ °_ CZDRL-DR11W GEN NPR INTFC LOGIC TEST & 





MANT : eASCIZ) A TEST MODE: MAINT ONLY @/ 





TEST 65 STRING OR 200 DATOS BURST MODE XFERS (SWITCH FLIPPED) 


H 
CZDRLAQ=DR11W GEN NPR INTFC MACRO M1111 24=SEP=79 10:39 PAGE 75-1 
SEQ 0085 
014731 115 117 104 
014734 105 072 040 
014737 115 101 114 
014742 116 124 040 
014745 117 116 114 
014750 131 040 040 
014753 046 000 
2767 014755 015 O12 124 MANCBL: .ASC1Z2<15><12>/TEST MODE: MAINT AND CABLE/<15><12> 
014760 105 123 124 
014763 040 115 117 
014766 104 105 072 
014771 040 115 101 
014774 111 116 124 
014777 040 101 116 
015002 104 040 103 
015005 101 102 114 
015010 105 015 Ole 
015013 000 
2768 015014 124 105 123 MSG4: .ASCIZ /TESTNO ERRPC PSW DRI1W STATUS / 
015017 124 116 117 
015022 040 040 105 
015025 122 122 120 
015030 103 040 040 
015033 120 123 127 
015036 040 040 040 
015041 104 122 061 
015044 063 127 040 
015047 123 124 101 
015052 124 125 123 
015055 040 000 
2769 015057 015 O12 120 MSGS: .ASCIZ <15><12>/PROGRAM IS PERFORMING CABLE MODE TEST/<15><12> 
015062 122 117 107 ‘ 
015065 122 101 115 
015070 040 111 123 
015073 040 120 105 
015076 122 106 117 a 
015101 122 115 171 
015104 116 107 040 
015107 103 101 102 
015112 114 105 040 
015115 115 117 104 
015120 105 040 124 
015123 105 123 124 
015126 015 012 000 
2770 015131 125 123 105 MSG6: .ASCIZ /USER CABLE SHOULD BE IN/<15><12> 
015134 122 040 103 
015137 101 102 114 
015142 105 040 123 
015145 110 117 125 
015150 114 104 040 
015153 102 105 040 
015156 111 116 015 
015161 012 000 
2771 015163 015 012 124 MSG7: .ASCIZ <15><12>/TESTNO ERRPC PSw DR11B STATUS/<15><12> 
015166 105 123 124 
015171 116 117 040 
015174 040 105 122 





7? 
CZDRLAO=DR11wW GEN NPR INTFC MACRO M1111 24=SEP=79 10:39 PAGE 455 


TEST 65 STRING OR 200 DATOS BURST MODE XFERS (SWITCH FLIPPED) SEQ 0086 
015177 122 120 103 
015202 040 040 120 
015205 123 127,040 
015210 040 104 122 
015213 (061 061 102 
015216 040 123 124 
015221 101 124 125 
015224 123015 012 
015227 —s- 000 
2772 015230 = 015 012 104 MSG8: .ASCIZ <15><12>/DIAGNOSTIC TESTING OF DR11B NOW IN PROGRESS/<15><12> 
015233 111 101 107 
015236 116 117 123 
015241 124 111 103 
015244 040 126 105 
015247 123 126 111 
015252 116 107-040 
015255 117 106 040 
015260 104 122 061 
015263 ~—_ 061 102 040 
0152 116 117 127 
015271 040 117 116 
015274 040 120 122 
015277 117 107 122 
015302 105 123 123 
015305 = 015 012 000 / 
2773 015310 = 015 012 104 MSG9: .ASCIZ <15><12>/DIAGNOSTIC TESTING OF DR11W NOW IN PROGRESS/<15><12> 
015313 111 103 107 
015316 116 117 123 
015321 124 111 103 
015324 040 124 105 
015327 123 124 111 
015332 116 107 040 
015335 117 106 040 
015340 104 122 061 
015343 = 061 127 040 
015346 116 117 127 
015351 040 111 116 
015354 040 120 122 
015357 117 107 122 
015362 105 123 123 
015365 015 012 000 
2774 -EVEN 
2775 
2776 
2777 015370 000000 OFL: 0 FIRST CHAR FLAG 


2779 
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TEST 65 STRING OR 200 DATOS BURST MODE XFERS (SWITCH FLIPPED) 





2781 PRR R RARER REE RTRE REE REAR EEERATAARAAATTAAEA RATER ARR 
2782 > TTY ASCII OUTPUT ROUTINE 

2783 PARRA REAR REE ATTRA TERRA 
2784 

2785 

2786 015372 105712 TTOUT: TSTB (R2) ;CHECK FOR NULL CHARACTER 
2787 015374 001403 BEQ 1$ 71F NOT, TYPE THE CHARACTER 
2788 015376 122712 000046 CMPB #'&,(R2) ;CHECK FOR TERMINATOR 

2789 015402 001005 BNE EMPTY 

2790 015404 042777 000100 163562 1$: BIC #100,aTPS 

2791 015412 005002 CLR R2 ; CLEAR POINTER TO CHARACTER 
2792 015414 000207 RTS PC RETURN 

2793 015416 122712 000137 ~EMPTY: CMPB #' ,(R2) sCRLF CHAR? 

2794 015422 001411 BEQ RET 

2795 015424 122712 000041 CMPB #'!,(R2) ; CHECK FOR RETURN TERMINATOR 
2796 015430 001414 BEQ »REST 

2797 015432 105777 163536 1$: TSTB arTPs 

2798 015436 100375 BPL 1$ 

2799 015440 112277 163532 MOVB (R2)+,aTPB ; TYPE CHARACTER 

2800 015444 000752 BR TOUT 

2801 015446 005202 RET: INC Re 

2802 015450 010237 021402 MOV R2,.SAV ;SET UP NEW POINTER 

2803 015454 012702 015470 MOV #.RETR,R2 

2804 015460 000767 BR -RET=-6 

2805 015462 013702 021402 REST: MOV - SAV,R2 

2806 015466 000741 BR TTOUT 


2807 
2808 015470 015 012 041 .RETR: .BYTE 15,12,°! 
2809 


K_ 7 
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SEG 0088 
2811 . SBTTL 
2812 -SBTTL SYSMAC ROUTINES 
2815 . SBTTL TYPE ROUTINE 


—MARBRASALASZALAALAAELSLSES ALARA SEER RAR ARERR ARE RAR RAR RASA RASA RRR A SSD SD 


“ #ROUT INE TO TYPE ASCIZ MESSAGE. eg ll MUST TERMINATE WITH A O BYTE. 


‘ ® THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED 
+ *NOT —1 SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
‘ ®NOTE2: SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
; #NOTE3: SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 
*CALL 
tT) USING A TRAP ia—_ 
eo. TYPE »MESAD ZiMESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
i* TYPE 
3* ME SADR 
** 
015474 105737 001343 $TYPE: TSTB STPFLG i1S THERE A TERMINAL? 
015500 100002 BPI 1$ IF YES 
015502 000000 HALT + HALT HERE IF NO TERMINAL 
015504 000407 BR 3$ : LEAVE 
015506 010046 1$: MOV RO,-(SP) “SAVE RO 
015510 017600 000002 MOV @2(SP) ,RO :3GET ADDRESS OF ASCIZ STRING 
015514 112046 28: MOVB _— (RO) +, -( SP) ;PUSH CHARACTER TO BE TYPED ONTO STACK 
015516 001005 BNE 4$ ‘:BR IF IT ISN'T THE TERMINATOR 
015520 005726 TST (SP) + :71F TERMINATOR POP IT OFF THE STACK 
015522 012600 60$: MOV (SP) +,RO *=RESTORE RO 
015524 062716 000002 3$: ADD #2, (SP) : ADJUST RETURN PC 
015530 000002 RTI +: RETURN 
015532 122716 000011 4$: CMPB #HT, (SP) ; ;BRANCH IF <HT> 
015536 0601430 BEOQ 
015540 122716 000200 CMPB #CRLF , (SP) ; BRANCH IF NOT <CRLF> 
015544 001006 BNE 5$ 
015546 005726 TST (SP) + 77POP <CR><LF> EQUIV 
015550 104401 TYPE >: TYPE A CR AND LF 
015552 001351 $CRLF 
015554 105037 015710 CLRB = $CHARCNT z:CLEAR CHARACTER COUNT 
915560 000755 BR 2$ *:GET NEXT CHARACTER 
015562 004737 015644 5$: JSR PC ,$TYPEC +:GO TYPE THIS ogtianac TER 
1 123726 001342 6$: CMPB ss SFILLC,(SP)+  ::IS I7 TIME F OR FILL ER CHARS.? 
015572 001350 BNE 2s +:1F NO GO GET NEXT CHAR. 
015574 013746 001340 MOV $NULL .- (SP) i2GET * oF pf ALeeR CHARS. NEEDED 
015600 105366 000001 7$: DEC 1(SP) +:DOES A NULL NEED TO BE TYPED? 
015606 002770 BLT 6$ tZBR IF NO--GO POP THE NULL OFF OF STACK 
015606 004737 015644 JSR PC, STYPEC ::G0 TYPE A NULL 
015612 105337 015710 DECB  $CHARCNT +:DO NOT COUNT AS A COUNT 
015616 000770 BR 7$ ;;LOOP 
“HORIZONTAL TAB PROCESSOR 
015620 112716 000040 BS: MOVB so #’_—, (SP) ::REPLACE TAB WITH SPACE 
015624 004 015644 9$: JSR PC, $TYPEC :: TYPE A SPACE 
015630 132737 000007 015710 BITB #7.$CHARCNT “BRANCH IF NOT AT 
015636 001372 BNE 9$ 73 TAB STOP 
015640 005726 TST (SP)+ ;POP SPACE OFF STACK 
015642 000724 BR 2$ :2GET NEXT CHARACTER 
015644 105777 163464 STYPEC: TSTB  a$TPS WAIT UNTIL PRINTER IS READY 
015650 100375 BPL $TYPE C 





CZDRLAO=DR11W GEN NPR INTFC 


TYPE 


ROUTINE 


015652 
015660 


015712 


000002 
000015 


015710 
000012 


MACRO M1111 


163456 
060002 


000002 


BR 
1$: CMPB 


INCB 
$SCHARCNT: . WORD 
STYPEX: RTS 


24=SEP=79 10:39 PAGE 77-1 


2(SP) ,a$TPB 
edict 


LF ,2(SP) 
$TYPEX 
(PC) + 

0 

PC 


;;LOAD CHAR TO BE TYPED INTO DATA REG. 


3271S CHARACTER A CARRIAGE RETURN? 
;;BRANCH IF NO 
+) +4 "eee CHARACTER COUNT 


7EXI 
:21S8 CHARACTER A LINE FEED? 
; BRANCH IF YES 

3; COUNT THE CHARACTER 

; CHARACTER COUNT STORAGE 


SEQ 0089 


ba 
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BINARY TO OCTAL (ASCI1) AND TYPE 


2815 .SBITL BINARY TO OCTAL (ASCII) AND TYPE 
J FARAAAAARAAAAAAAAAAARAAAAAREAEAAAAAARAAARARRERARARAARARREREREREH 
Z*THIS ROUTINE IS USED TO CHANGE A 16B1T BINARY NUMBER TO A 6-DIGIT 
S*OCTAL (ASCII) NUMBER AND TYPE IT. 
i e$TYPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


; NUMBER TO BE TYPED 

3; CALL FOR TYPEOUT 

;;N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 
;7M=1 OR O 


;3 1=TYPE LEADING ZEROS 
3 0=SUPPRESS LEADING ZEROS 


{*BTYPONG==-ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
;*$TYPOS OR $TY 


NUM , ~ (SP) ; ;NUMBER TO BE TYPED 
3 ;CALL FOR TYPEOUT 


‘® 
; sSTYPOC==-ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 
is MO NUM, = (SP) : NUMBER TO BE TYPED 


;* T 
015714 000000 $TYPOS: a(SP) ,-(SP) MODE 
MO 1(SP) ,SOF ILL 2s LOAD ZERO FILL SWITCH 
;NUMBER OF DIGITS TO TYPE 
+: ADJUST RETURN ADDRESS 


3SET THE ZERO FILL SWITCH 
3 SET FOR SIX(6) DIGITS 
;SET eRe ITERATION COUNT 


ee RS 
33GET THE NUMBER OF DIGITS TO TYPE 


3; SUBTRACT IT FOR MAX. ALLOWED 
ot os IT FOR USE 

:2GET THE TERO FILL SWITCH 

:3 INPUT NUMBER 


; [ROTATE MSB INTO ° 
:GO DO MSB 
Z:FORM THIS DIGIT 


;GET LSB OF THIS DIGIT 
ZI TYPE THIS DIGIT? 
;BR IF NO 
:GET RID OF JUNK 
7 TEST FOR O 
Fo a Pl 0? 
ESS ANYMORE 0°S 


052703 000060 IGIT ASCII 
052703 : #’ ,R3 * IMAKE ASCII IF NOT ALREADY 





CZDRLAO=DR11W GEN NPR INTFC 


BINARY TO OCTAL (ASCII) AND TYPE 


110337 016134 
104401 016134 
105337 016136 
003347 


000002 000004 


6$: 


8$: 
SOCNT: 


SOFILL: . 
SOMODE: . 
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7 ;SAVE FOR TYPING 
3:GO TYPE THIS DIGIT 
;;COUNT BY 1 

;7BR a MORE TO DO 


+: INSURE LAST DIGIT ISN'T A BLANK 
+:G0 DO THE LAST DIGIT 


o. R3 
33SET THE STACK FOR RETURNING 


7 RETURN 

;z STORAGE FOR ASCII DIGIT 

32 TERMINATOR FOR TYPE ROUTINE 
;zOCTAL DIGIT COUNTER 

s7ZERO FILL SWITCH 

; NUMBER OF DIGITS TO TYPE 


SEQ 0091 


CZDRLAO=DR11W GEN NPR INTFC 


CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 
-SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


OT Irtitittiti titi iti tit iii 

:*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT 
: SIGNED Me post (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 
:*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 


2817 


016142 


020200 
016160 016605 000020 
100004 


000055 
016356 
000040 


000001 


016346 


177777 


177777 177776 


016356 


>*CALL 
:* 


;* 
$TYPDS: 


7$: 


8$: 


MO 
TYPDS 
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;*REPLACED WITH SPACES. 


NUM, = (SP) 


RO,-(SP) 


7 
(SP) 


6$ 
(SP) + 
9$ 


ITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 


;3PUT_ THE BINARY NUMBER ON THE STACK 
3:GO TO THE ROUTINE 


;ZzPUSH RO ON STACK 
:zPUSH R1 ON STACK 
3; PUSH R2 ON STACK 
ee + R3 ON STACK 
PUSH R5 ON STACK 
7S T BLANK SWITCH AND SIGN 
;GET THE INPUT NUMBER 


ZERO THE CONSTANTS INDEX 

;-SETUP THE OUTPUT POINTER 

23SET THE FIRST CHARACTER TO A BLANK 
D NUMBER 


3:FORM THIS BCD DIGIT 
;;BR IF DONE 
3; INCREASE THE BCD DIGIT BY 1 


Sr BACK THE CONSTANT 
vr BCD te Sw =0 


AL OUGH IF 0 
SSTILL DOING LEADING 0°S? 
SBR IF YES 

2¢MSD? 


;BR_IF NO 

72 YES--SET THE SIGN 

;:MAKE THE BCD DIGIT ASCII 

: MAKE IT A SPACE IF NOT ALREADY A DIGIT 
3;PUT THIS CHARACTER IN THE OUTPUT BUFFER 
[JUST INCREMENT ING 

‘CHECK THE TABLE INDEX 

2260 DO a NEXT DIGIT 


:G0 C TO ASCII 
:]WAS THE LSD THE FIRST NON-ZERO? 
is YES=-SET THE nt Ag TYPING 


‘hep STACK INTO R1 
;POP Ly INTO RO 
TYPE THE NUMBER. 


*. 
oe 


SEQ 0092 


cee 


C 6 
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CZDRLAO=DR11W GEN 
CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 
016334 016666 000002 000004 MOV 2(SP) ,4(SP) ; ADJUST THE STACK 
016342 012616 MOV (SP)+, (SP) 
016344 000002 RTI ;;RETURN TO USER 
016346 023420 $DTBL: 10000. 
016350 001750 1000. 
016352 000144 100. 
016354 000012 10 


016356 $DBLK: .BLKW 4 


CZDRLAO=DR11W GEN NPR INTFC 
TTY INPUT ROUTINE 


2819 


016574 


000004 
162726 
162722 
177600 
000004 
162674 


162670 
177600 
000021 


000004 
000004 
000040 


016614 
016623 


000177 
001350 
016612 
016612 
000015 
177777 
001352 


000004 


D 8 
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000002 


-SBTTL TTY INPUT ROUTINE 


SEQ 0094 


J J RRRAAARARARRAREARARRAAAAAARARARRARRARARAARAARAERARRRAARERERAAAD 


MESA RSRASZALALALSLSLSAASE SEARS RARER ERAS SSR R RR RSE RSA SRSA SEAR ASAD SED 


T*THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 


“ENABL LSB 

.DSABL LSB 

s*CALL: 

3* RDCHR 

te RETURN HERE 

** 

$RDCHR: MOV (SP) ,=(SP) 
MOV 4(SP) ,2(SP) 

1$: TSTB =—s @$TKS 
BPL 1$ 
MOVB  a$TKB,4(SP) 
BIC ptt 4(SP) 
CMP 4 (SP) #23 
BNE 3$ 

2$: TSTB =—s_ @STKS 
BPL 2$ 
MOVB  a$TKB,-(SP) 
BIC #°C177, (SP) 
CMP (SP)+,421 
BNE 2$ 
BR 1$ 

3$: CMP 4(SP) ,4140 
BLT 4$ 
CMP 4(SP) #175 
BGT 4$ 
BIC #60,4(SP) 

4$: RT] 


3; INPUT A_ SINGLE erg ee FROM THE TTY 
3; CHARACTER IS ON THE STA 
izWITH PARITY BIT STRIPPED. OF F 


sPUSH DOWN THE PC 
‘SAVE THE PS 


GET RID OF JUNK IF ANY 
SITS IT A CONTROL-S? 
; BRANCH IF NO 
sz WAIT FOR A CHARACTER 
;;LOOP UNTIL ITS THERE 
7 :GET CHARACTER 
: MAKE IT 7-BIT ASCII 
zz1S IT A CONTROL-Q? 
37IF NOT DISCARD IT 
77 YES, RESUME 
:z1S IT UPPER CASE? 
; BRANCH IF YES 
21S IT A SPECIAL CHAR? 
; ;BRANCH IF YES 
7 MAKE IT UPPER CASE 
::GO BACK TO USER 


SLUR AAA RARER ARERR EE EERE RAERARAEEARRORRRAREREERRREERAERR EE 


;*THIS ROUTINE WILL INPUT A STRING FROM THE TTY 


*CALL: 

i* RCOLIN 

7* RETURN HERE 

** 

SRDLIN: MOV R3,-(SP) 

1$: MOV #$TTYIN, RS 

23: CMP MSTTYINe7. RS 
BLOS 4$ 
RDCHR 


MOVB (SP) +, (R3) 
10$: CMPB a aes 


BNE 

4$: TYPE , SQUES 
BR 1$ 

3$: MOVB (R3) ,9$ 
TYPE . 
CMPB #15,(R3)+ 
BNE 2s 
CLRB -1(R3) 
TYPE  SLF 
MOV (SP)+,R3 
MOV (SP) ,=(SP) 


MOV 4(SP) ,2(SP) 


3; INPUT A STRING FROM THE TTY 
$A OF FIRST CHARACTER WILL BE ON THE STACK 
a WILi BE A BYTE OF ALL O'S 


3IGET ADDRESS 
;BUFFER FULL? 
::BR IF YES 
3:GO READ ONE CHARACTER FROM THE TTY 


SICLEAR THE BUFFER AND LOOP 
32ECHO THE CHARACTER 


; ¢ CHECK ae oh oy 
LOOP IF NOT RETURN 
#2 CLEAR RETURN (THE 15) 
TYPE A LINE FEED 
; ;RESTORE R3 
;;ADJUST THE STACK AND PUT ADDRESS OF THE 
3: FIRST ASCII CHARACTER ON IT 
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TTY INPUT ROUTINE SEQ 0095 
016602 012766 016614 060004 MOV MSTTYIN,4(SP) 
016610 000002 RT] ; RETURN 
016612 000 9$: -BYTE 0 3, STORAGE FOR ASCII CHAR. TO TYPE 
016613 000 -BYTE O 7 TERMINATOR 
016614 STTYIN: .BLKB f s RESERVE 7. BYTES FOR TTY INPUT 
016623 136 125 015 $CNTLU: .ASCIZ /*U/<15><12> 7 CONTROL ‘U"' 
016626 012 000 
016630 136 107 015 $CNTLG: .ASCIZ /*G/<15><12> 3: CONTROL ''G’’ 
016633 012 000 
016635 015 012 123 SMSWR: .ASCIZ <15><12>/SWR = / 
016640 127 122 040 
016643 075 040 000 
016646 04 040 116 SMNEW: .ASCIZ / NEW = / 
016651 105 127 040 
016654 075 040 000 


EVEN 
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2821 


016660 011646 


016702 010037 017026 
016706 


005002 
016712 122710 000055 


016726 122701 000060 
016734 122701 000071 
016742 032716 170000 


016754 00631 
016756 006316 
016760 06261 


016764 162701 000060 
060 


017004 012666 000012 
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READ A DECIMAL NUMBER FROM THE TTY 


016666 000004 000002 


F 8 
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.SBTTL READ A DECIMAL NUMBER FROM THE TTY 


MER ARSRERSRASLLAZLLALASESES ELE SESE RRR EER ARERR RRR RRA RR RRR RRR ARR A RDS SS 


[*THIS ROUTINE WILL READ A DECIMAL (ASCII) NUMBER FROM THE TTY AND 
[*CHANGE IT TO BINARY. IF TOO MANY CHARA 


[*USER TYPING A_CARRIAGE 


CTERS OR ANY ILLEGAL CHARACTERS 
;*ARE READ A ‘"?"* FOLLOWED BY A CARRIAGE RE TURN=L INE FEED WILL BE TYPED. 
:*THE COMPLETE NUMBER MUST BE RETYPED. THE INPUT IS TERMINATED BY THE 
RETURN. THE RANGE OF THE INPUT NUMBER IS 


:*POSITIVE 32767 TO NEGATIVE 32768. 


7 *CALL: 
- 


-* 
. 


$RDDEC: 


2$: 


3$: 


4$: 


5$: 


RDDEC 
RETURN HERE 


(SP) ,-(SP) 
4(SP) ,2(SP) 
RO,-(SP) 
R1,-(SP) 
R2,-(SP) 


(SP) +,RO 
RO,6$ 
-(SP) 

R2 

#'=, (RO) 
2$ 


(RO) +,R2 
(RO)+,R1 


3$ 

#'0,R1 

5$ 

#°9,R1 

5$ 

#*°C7777, (SP) 
5$ 

(SP) 

(SP) ,=(SP) 
(SP) 


(SP) 
(SP) +, (SP) 
5$ 


) 
(SP)+,12(SP) 
(SP)+,R 
(SP)+,R1 
(SP)+,RO 


(SP) + 
(RO) 


0: 
. SQUES 
1$ 


;sREAD A DECIMAL NUMBER 
3 NUMBER IS ON TOF OF THE STACK 


: ;PROVIDE SPACE FOR 
NPUT NUMBE 


EAR DATA WORD 
S ESIGN SET POSITIVE 
23 SEE IF A MINUS SIGN WAS TYPED 
;BR IF NO MINUS SIGN 
SAVE FOR LATER USE 
PICKUP THIS CHARACTER 
:2GET OUT IF ZERO 
MAKE SURE THIS CHARACTER 
Sr1S A DIGIT BETWEEN 0 & 9 


;;DON'T LET NUMBER GET TO BIG 
;;BR 1F NUMBER WOULD OVERFLOW 


_** 
ee a FOR LATER 


72*10. 

: OVERFLOW ISN'T ALLOWED 

zz STRIP AWAY THE ASCII JUNK 
: ADD IN THIS DIGIT 

2 /OVERFL Ot ISN'T ALLOWED 


LOOP 
£2 CHECK IF NUMBER IS NEG 
IF NO 


; YES--NEGATE THE NUMBER 


; POP STACK INTO RO 
TURN 


ga 
:7 CLEAN PARTIAL NUMBER FROM STACK 
;7SET A TERMINATOR 

THE INPUT - TO BAD CHAR, 





“TRY AGAIN 


G 8 
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READ AN OCTAL NUMBER FROM THE TTY SEQ 0097 


2823 .SBTTL READ AN OCTAL NUMBER FROM THE TTY 
cs PRERERASAAASAZEALALLASESZELRER EERE ERE RRR RRR RRR RRR RRR RRS RRR SSSR SRE SS 
>*THIS ROUTINE WILL READ AN OCTAL (ASCIJ) NUMBER FROM THE TTY AND 
[*CHANGE IT TO BINARY. 
[*THE INPUT CHARACTERS WILL BE CHECKED TO INSURED THEY ARE LEGAL 
S*OCTAL DIGITS. IF AN ILLEGAL CHARACTER IS READ A ‘'?'' WILL BE TYPED 
:*FOLLOWED BY A CARRIAGE RETURN-LINE FEED. THE COMPLETE NUMBER MUST 
:*THEN BE RETYPED. THE INPUT IS TERMINATED BY TYPING A CARRIAGE RETURN. 


S*CALL: 
7 RDOCT 7 zREAD AN OCTAL NUMBER 
3* RETURN HERE 2 LOW ORDER BITS ARE ON TOP OF THE STACK 
;* sHIGH ORDER BITS ~. IN $HIOCT 
017036 011646 $RDOCT: MOV (SP) ,-(SP) +: PROVIDE SPACE FOR THE 
017040 016666 000004 000002 MOV 4(SP),2(SP) :: INPUT NUMBER 
017046 010046 MOV RO,-(SP) ;7PUSH RO ON STACK 
017050 010146 MOV R1,-(SP) 77PUSH R1 ON STACK 
017052 010246 MOV R2,~-(SP) 3ZFUSH R2 ON STACK 
017054 104407 1$: RDLIN ;;READ AN ASCIZ LINE 
017056 012600 MOV (SP)+,RO :3GET ADDRESS OF 1ST CHARACTER 
017060 010037 017164 MOV RO,5$ AND SAVE IT 
017064 005001 CLR R1 > CLEAR DATA WORD 
017066 005002 CLR R2 
017070 112046 2s: MOVB (RO) +,=(SP) sPICKUP THIS CHARACTER 
017072 001420 BEQ 3$ HIF ZERO GET OUT 
017074 122716 000060 CMPB #°0, (SP) tw SURE THIS CHARACTER 
01710U 003026 BGT 4$ 31S AN OCTAL DIGIT 
017102 122716 000067 CMPR #'7, (SP) 
017106 002423 BLT 4$ 
017110 006301 ASL R1 ii*2 
017112 006102 ROL R2 
017114 006301 ASL R1 2284 
017116 006102 ROL R2 
017120 006301 ASL R1 378 
017122 006102 ROL R2 
017124 042716 177770 BIC #*C7, (SP) iz STRIP THE ASCII JUNK 
017130 062601 ADD (SP)+,R1 ZZADD IN THIS DIGIT 
017132 000756 BR 2s 3;2LOOP 
017134 005726 3$: TST (SP) + 3i CLEAN TERMINATOR FROM STACK 
017136 010166 000012 MOV R1,12(SP) 77 SAVE THE RESULT 
017142 010237 01717 MOV R2,$HIOCT 
017146 012602 MOV (SP)+,R2 :zPOP STACK INTO R2 
017150 012601 MOV (SP)+,R1 :zPOP STACK INTO R1 
017152 012600 MOV (SP)+,R0 :;POP STACK INTO RO 
017154 000002 RT] 7 RETURN 
017156 005726 4: TST (SP)+ 37 CLEAN PARTIAL FROM STACK 
017160 105010 CLRB (RO) 77 SET A TERMINATOR 
017162 104401 TYPE 77 TYPE UP THRU THE BAD CHAR. 
017164 000000 S$: -WORD 0 
017166 104401 001350 TYPE , SQUES : Ce ee 5" 
017172 000730 BR 1$ es. AGAIN 
017174 $SHIOCT: WORD 0 5 ee ORDER BITS GO HERE 


H 8 
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TRAP DECODER SEQ 0098 
2825 .SBTTL TRAP DECODER 
*  RRRRARARARARARARRARARRARAERAARARARARARARARAARRARKRARRAERARARARAREAREEAEH 
**THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE ‘'TRAP’’ INSTRUCTION 
‘*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
SOF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WiLL 
+60, TO THAT ROUTINE. 
017176 010046 $1R V RO,-(SP) :;SAVE RO 
017200 016600 000002 MOV 2(SP) ,RO ::GET TRAP ADDRESS 
017204 005740 TST -(RO) sBACKUP BY 2 
? 111000 MOVB (RO) ,RO :iGET RIGHT BYTE OF TRAP 
017210 300 ASL RO “POSITION FOR INDEXING 
017212 016000 017232 MOV $TRPAD (RO) ,RO 33 INDEX TO TABLE 
017216 000200 RO -GO TO ROUTINE 
: THIS 18 Sse TO HANDLE THE “GETPRI" MACRO 
017220 011646 $TRAP2: MOV (SP) ,<(SP :MOVE THE PC DOWN 
017222 016666 000004 000002 MOV 4(SP), Stsp) **MOVE THE PSW DOWN 
017230 000002 RTI ::RESTORE THE PSW 
.SBTTL TRAP TABLE 
:*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
**BY THE ‘'TRAP’' INSTRUCTION. 
3 ROUT INE 
017232 017220 $TRPAD: .WORD $TRAP2 
017236 015740 $TYPOC ;;CALL=TYPOC TRAP+2(104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
017240 015714 $TYPOS ;;CALL=TYPOS TRAP+3(104403) TYPE OCTAL NUMBER (NO LEADING ZEROS) 
017242 015754 $TYPON ::CALL=TYPON  TRAP+4(1044 TYPE OCTAL NUMBER (AS PER LAST CALL) 
017244 016142 $TYPDS ;;CALL=TYPDS TRAP+5(104405) TYPE DECIMAL NUMBER (WITH SIGN) 
017246 016366 $RDCHR ;;CALL=RDCHR TRAP+6(104406) TTY TYPEIN CHARACTER ROUTINE 
017250 016506 SRDLIN :CALL=RDLIN — TRAP+7(104407) TTY TYPEIN STRING ROUT INE 
017252 017036 $RDOCT ::CALL=RDOCT TRAP+10(104410) READ AN OCTAL NUMBER FROM TTY 
sie 017254 016660 SRDDEC ::CALL=RDDEC TRAP+11(104411) READ A DECIMAL NUMBER FROM TTY 
6 


OU 
015474 $TYPE ;;CALL=TYPE TRAP+1(104401) TTY TYPEOUT ROUTINE 





ee EON RID iE ge 98 Se PE Be earned oe eee 
CZDRLAO=DR11W GEN NPR INTFC MACRO M1111 24=SEP=79 10:39 PAGE 84 
MULTIPLE BOARD DIALOGUE SEQ 0099 


017554 : 
2859 017554 000743 BR PROMPT 


2828 .SBTTL MULTIPLE BOARD DIALOGUE 
2830 
ath é MBD MONI TOR=COMMAND DECODER 
2833 017256 MBD : 
017256 104401 017264 TYPE 65$ ii TYPE ASCIZ STRING 
017262 000424 BR 64$ “GET OVER THE ASCIZ 
017336 ii$°S: wASCIZ <CRLF><CRLF>/DO yOu WISH MULTIPLE BOARD DIALOGUE ?/ 
2834 017334 104401 017342 TYPE 67% ii TYPE ASCIZ STRING 
017340 000412 BR 66$ :GET ovER THE ASCIZ 
32678: .ASCIZ <CRLF>/ (Y= YES, N=NO) 
17366 66$: 
2835 017366 104406 RDCHR 
2836 017370 012637 001360 MOV (SP) +, ANSWER 
2837 017374 023727 001360 000151 CMP ANSWER ,4131 71S ANSWER YES? 
2838 017402 001423 BEQ YESMBD ;IF YES,CONTINUE 
2839 017406 023727 001360 000116 CMP ANSWER, #116 71S ANSWER NO? 
2840 017412 001006 BNE ERRMSG TIF NEITHER YES OR NO ERROR IN REPLY 
2841 017414 104401 017422 TYPE ,69$ +: TYPE ASCIZ STRING 
017420 000402 BR 68$ *:GET OVER THE ASCIZ 
3,69%$: .ASCIZ /N/<CRLF> 
017426 68$: 
2842 
2843 017426 000207 RTS PC ; NO,SKIP DIALOGUE 
2844 017430 ERRMSG: 
017430 104401 017436 TYPE ,65$ 77 TYPE ASCIZ STRING 
017434 000405 BR 64$ +: GET OVER THE ASCIZ 
2656: ,ASCIZ # P77 8 
017450 64$: 
2845 017450 000702 BR MBD 
2846 
2847 017452 YE SMBD: 
017452 104401 017460 TYPE ,65$ si TYPE ASCIZ STRING 
017456 000402 BR 64$ S:GET OVER THE ASCIZ 
33658: .ASCIZ /Y/<CRLF><CRLF> 
017464 643: 
2848 017464 PROMPT 
017464 104401 017672 TYPE ,65$ :: TYPE ASCIZ STRING 
017470 000403 BR 64$ *:GET OVER THE ASCIZ 
3:65$: .ASCIZ <CRLF>/= / 
017500 6é$: 
2849 017500 104406 RDCHR ; 
2850 017502 012637 001360 MOV (SP) +, ANSWER 
2851 017506 023727 001360 000114 CMP ANSWER #114 ZLIST PRESENT TABLE? 
2852 017514 001420 BEQ LSTTBL ;YES 
2853 017516 023727 001360 000122 CMP ANSWER #122 :RUN PROGRAM? 
2854 017524 001423 BEQ RUNPRG sYES 
2855 017526 023727 001360 000105 CMP ANSWER, 4105 SEDIT TABLE? 
2856 017 534 001425 BEQ EDIT 
2858 017536 104401 017544 TYPE 67% ri TYPE ASCIZ STRING 
017542 000404 BR 66$ SiGET OVER THE ASCIZ 
51078 eASCIZ / 777? / a 
6 . 








CZDRLAO=DR11W GEN NPR INTFC 
MULTIPLE BOARD DIALOGUE 


2860 

2861 017556 
017556 
017562 


017566 
2862 017566 
2863 017572 
2864 017574 
017574 
017600 


017606 
2865 017606 
2866 017610 
017610 
017614 
017620 
2867 017620 
2868 017624 
2869 
2870 017626 
2871 017632 
2872 017636 
2873 017642 
017646 
017720 
2874 017720 
017724 
2875 017726 
017732 
017770 
2876 017770 


2877 017774 
017774 
020000 


020004 
2878 sissy! 
2879 020012 
020016 
020024 
2880 020024 
2881 020030 
020034 
020042 
2882 020042 
020044 
2883 020046 
2884 020054 


MACRO M1111 
LSTTBL 
104401 017564 
000401 
37658: 
64$: 
004737 017626 
000734 
RUNPRG : 
104401 017602 
000402 
3 ;65$: 
64$: 
000207 
EDIT 
104401 017616 
000401 
: 658: 
643: 
004737 020100 
000717 
005037 001322 PRTBL 
012701 001024 
012702 001076 
104401 017650 
000424 
32658: 
64$: 
013746 001022 
104405 
104401 017734 
000416 
77678: 
66$: 
005237 001322 . 
104401 020002 
000401 
226 
683: 
013746 001322 
104405 
104401 020020 
- 71$ 
70$: 
012146 
104402 
104401 020036 
“= 73$ 
72$: 
012246 
104402 
023737 001322 001022 
001403 


24=SEP=79 


J §&§ 
10:39 PAGE 84-1 


PC,PRTBL 
PROMPT 


,05$ 
64$ 
/R/<CRLF > 


PC, TBLEDT 
PROMPT 


LOOP 
#REGADR ,R1 
ot rata 


64$ :G 
<CRLF><CRLF><CRLF>/NO. BOARDS REQUESTED FOR TESTING: 
QTYBRD ,~ (SP) 


.67$ 


66$ 
<CRLF><CRLF>/BOARDA REGSTR. 


LOOP 
69S 
68$ 
<CRLF> 
LOOP ,-(SP) 
708 
/ 
(R1)+,=(SP) 
73$ 
28 
(R2)+,-(SP) 


LOOP ,QTYBRD 
PRTF IN 


si TYPE ASCIZ STRING 
:iGET OVER THE ASCIZ 


ze TYPE ASCIZ STRING 
33GET OVER THE ASCIZ 


Zi TYPE ASCIZ STRING 
7:GET OVER THE ASCIZ 


hha ASCIZ STRING 
ET OVER THE ASCIZ 


a QTYBRD FOR TYPEQU 
A TYPE~~DECIMAL ASCil with SIGN 
TYPE ASCIZ ST preg 
«GET OVER THE ASCIZ 
VECTOR/<CRLF> 


TYPE ASCIZ STRING 
32GET OVER THE ASCIZ 


VE LOOP FOR TYPEQUT 

ATH eiay ASCII WITH SIGN 
iT YE ASCIZ STRING 
GET OVER THE ASCIZ 


73 SAVE (R1)+* FOR TYPEOUT 

32GO TYPE--OCTAL ASCII(ALL DIGITS) 
s3 Tyne ASCIZ STRING 

32GET OVER THE ASCIZ 


rr (R2)+ FOR TYPE 
3G0 TYPE=--OC TAL ASCII TALL DIGITS) 


SEQ 0100 


CZDRLAO=DR1 iW GEN NPR INTFC 


MULTIPLE BOARD DIALOGUE 


2885 020056 
2886 020062 
2887 020064 
020064 
020070 


2892 020110 


YBYyBYyy 
NOUESWN HO 
o 
= 


005237 
000744 


104401 
000402 
000207 
012701 


013746 
104405 
104401 
000413 


011146 


013721 
000401 
005721 
104401 


001322 


020072 


020122 


001360 
001360 


001360 
020226 


020374 


001360 
001360 


001360 


020432 


MACRO M1111 24-SEP-79 
INC LOOP 
1$ 
PRTFIN: 
TYPE ,65$ 
BR 4$ 
37365$: .ASCIZ <CRLF><CRLF> 
64$: 
RTS PC 
TBLEDT: MOV #REGADR ,R1 
MOV MVECADR,R2 
CLR LOOP 
BRDNO: 
TYPE ,65$ 
37658: ASC1Z 
64$: 
RDDEC 
MOV (SP) +, ANSWER 
TST ANSWER 
BEQ BRDNO 
YV0020 CMP ANSWER , 420 
BLE CORRCT 
TYPE " 
se eASCIZ 
66$: 
JMP EDTFIN 
001022 CORRCT: MOV ANSWER ,QTYBRD 
INC LOOP 
ENTRY: 
TYPE ,65$ 
64$ 
jig: ASCIZ <CRLF><CRLF>/BOARD / 
V LOOP ,-(SP) 
TYPDS 
TYPE ,67$ 
3:67$: .ASCIZ 
66$: 
MOV (R1),-(SP) 
TYPOC 
TYPE 09S 
68$ 
5,698: ASCIZ / f 
68$: 
RDOCT 
MOV (SP) +, ANSWER 
TST ANSWER 
BEQ 2$ 
MOV ANSWER, (R1) + 
BR 3$ 
23: TST (R1)+ 
3$: 
TYPE 71$ 


kK 8 
10:39 PAGE 84-2 


cttere ASCIZ STRING 


T OVER THE ASCIZ 


2 i TYPE ASCIZ STRING 
64$ ;GET OVER THE ASCIZ 
<CRLF><CRLF>/HOW MANY BOARDS DO YOU WANT TO TEST? 


TYPE ASCIZ STRING 


OVER THE ASCIZ 


66$ “GET 
<CRLF >/MAX BoarDs’ OF 16 EXCEEDED/ 


66$ :GET 
<CRLF>/ REGISTER ADDRESS: 


tt | (R1) FOR TYPEQU 
ys Pry ASCII CALL DIGITS) 

i: TYPE ASCIZ STRING 

GET OVER THe ASCiZ 


sz TYPE ASCIZ STRING 
:;GET OVER THE ASCIZ 


72 SAVE LOOP FOR TYPEOUT 
3:GO TYPE--DECIMAL ASCII WITH SIGN 
a3 Tyee ASCIZ STRING 


+ Pt ASCIZ 


INSTALL NEW # IN TABLE 


se TYPE ASCIZ STRING 


SEQ 0101 


CZDRLAO=DR11W GEN NPR INTFC MACRO M1111 24=SEP=79 10:39 PAGE 84-7 
MULTIPLE BOARD DIALOGUE SEQ 0102 


020430 000411 BR 70$ ::GET OVER THE ASCIZ 
-:71$: .ASCIZ /VECTOR ADDRESS: | / 
020454 70$: 
2918 020454 011246 MO (R2) ,=(SP) :;SAVE (R2) FOR TYPEOUT 
020456 +:GO TYPE=-OCTAL ASCIICALL DIGITS) 
020466 +: TYPE ASCIZ STRING 
2 *:GET OVER THE ASCIZ 


001360 MOV (SP) + ,ANSWER 
001360 a 


013722 001360 ANSWER, (R2) + 
000401 BR 5$ 
005722 4$: (R2)+ 
023737 001322 001022 5$: LOOP, OTYBRD 
001404 N 


EDTFI 
001322 


LOOP 
2932 020 020300 J ENTRY 
2933 020536 EDTFIN: P 


C 





. M & 
CZDRLAO=DR11W GEN NPR INTFC MACRO M1111 24=SEP=79 10:39 PAGE 85 
BURST DATA LATE CALIBRATION ROUTINE SEQ 0103 


2935 .SBTTL BURST DATA LATE CALIBRATION ROUTINE 


2936 
2937 020540 BRSTDL: 

020540 104401. 020546 T ,65$ ai ASCIZ aaet 

020544 000426 BR 64$ ;GET OVER THE ASCIZ 

020622 ig?" ° <CRLF><CRLF>/DO YOU WISH BURST DATA LATE CALIBRATION?/ 
2938 020622 020630 ,67$ acts ASCIZ STRING 

020626 ; 


BR 6$ T OVER THE ASCIZ 
TY hg ° <CRLF>/(Y=YES, N=NO) : / 


001360 (SP) + ANSWER 
001360 MP ANSWER ,4131 svES? 


3s 
001360 ANSWER. #116 :NO? 


020710 ,O9$ i3TYPE ASCIZ STRING 
68$ 3:GET OVER THE ASCIZ 
/N/<CRLF > 


020724 zz TYPE ASCIZ STRING 
GET OVER THE ASCIZ 


020742 . , i: TYPE ASCIZ STRING 


2$ 3:GET OVER THE ASCIZ 
/Y/<CRLF> 


020754 75$ 2a TYPE ASCIZ STRING 
4$ ;GET OVER THE ASCIZ 
<CRLF>/BURST DATA’ LATE CALIBRATION IN PROGRESS. ./ 


021036 77$ 32 TYPE ASCIZ STRING 
6$ 33GET OVER THE ASCIZ 
<CRLF>/ATTACH SCOPE PROBE.../ 


021074 79$ i TYPE ASCIZ STRING 
78$ GET OVER THE ASCIZ 
<CRLF>/TO ABORT tis ROUTINE HALT PROCESSOR... / 


DEF RAD ,RO ;BURST DATA Are CALIBR. USES 
;DEFAULT REG. AND VECTOR ADDRESSES 
aa 


SS 


2 4 4 4) VO a 


3 ss ts a —_— 


SSNIFRENVS EE 
seg ggg 


CLR CYCLE BIT 


PERERSIEISS 


aCSR 
#100, T IME 





2965 021212 
2966 


2967 021220 
2968 021224 
2969 021226 
2970 


2973 

2974 021230 

2975 021234 

2976 021240 

2977 021244 

2978 021250 
021254 


021300 


2993 022406 


2994 
2995 023410 
2996 023412 
2997 


CALIBRATION ROUTINE 


052777 
005337 


CZDRLAO=DR11W GEN NPR INTFC 
BURST DATA LATE 


000400 
001312 


021256 


021306 


001354 


021370 


N 
24-SEP-79 10:39 PAGE 85-1 


#400,aCSR 


SUMMARY ROUTINE 


QTYBRD,RO 

#REGADR,,R1 
#PASCNT ,R2 
PERRCHT RS 


e 


;SET CYCLE BIT 
; WAIT 


4 ALWAYS: gtk, 2 AND CLEARING CYCLE 
O ABORT ,HALT PROCESSOR 


NO. OF BOARDS TESTED 


7TYPE ASCIZ STRING 
;;GET OVER THE ASCIZ 


64$ : 
<CRLF>/RUN SUMMARY.../<CRLF> 


-67$ 


72 TYPE ASCIZ STRING 
OVER THE ASCIZ 


6$ 3GE 
<CRLF>/BOARD PASCNT ERRNT/<CRLF> 


(R1)+,-(SP) 
(R2)+,=(SP) 
(R3)+,-(SP) 


8$ 
<CRLF > 
1$ 
200 


co (R1)+ FOR TYPEOUT 

:GO TYPE--OCTAL eh DIGITS) 
T:SAVE (R2)+ FOR TYPEOUT 
3:GO TYPE--DECIMAL ASCII WITH SIGN 
72SAVE (R3)+ FOR TYPEOUT 
32GO TYPE~-DECIMAL ASCII WITH SIGN 


sz TYPE ASCIZ STRING 
32GET OVER THE ASCIZ 


FOR STACK POINTER 100 LOCATIONS 


SEQ 0104 
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SYMBOL TABL SEQ 0105 
ANSWER 001360 CYCLE = 000400 LOADA 007726 RUNSUM 021230 7 011364 
ATIN = DATCHK 010116 LODBUF 007714 R6 =% T37CHK 011524 
BAOFCK 010546 DATOCK 010200 L 00132 R7 =%0 140 011544 
001066 DDISP = 177570 LSTTBL 017556 SAVCC 013772 T40CHK 011704 
BOFAIL 001362 DEFRAD 001004 MAINT = 01000 SAVPC 013770 141 005360 
001072 DEFVAD 001006 MANCBL 014755 SAVR2 013762 T42 010276 
BEGAUT 001670 DIOMEM 001150 MANT 014723 SAVR3 013764 T55 
BEGIN 001 DISPLA 001324 MBD 017256 SAVR4 013766 156 011716 
BITO = 1 DISPRE 000174 MF LOOP 2 SCOP 010450 TS6CHK 012056 
BIT! = 005556 MSG4 015014 COPE = 157 012100 
BIT10 = 002000 DRINL 001074 MSG5 015057 SCOPEA 013774 TS7CHK 012234 
BIT11 = 004000 DRINV 001136 MSG6 015131 SSOPEB 014016 T 00663 
BIT12 = 010000 DRVS 001140 MSG7 015163 SCOPEC 014030 T6OCHK 006762 
BIT13 = 020000 DSTATA= 001000 MSG8 015230 SCLPEF 014124 161 007024 
BIT14 = 040000 DSTATB= 002000 MSG9 015310 SCOMEG 014104 T61CHK 007174 
B1T15 = 100000 DSTATC= 000 NEX = 040000 001000 161.5 0072 
BIT2 = = 177570 NEXCHK 01 STACK = 022404 T62CHK 007676 
BITS = 000010 EDIT 017610 NOCBL 010734 1364 VECADR 001076 
BITS = EDTFIN 020536 NOP = 24 SWINT1 012740 WCLEN 001164 
BITS = EIR 001142 NORMA 10156 SWINT2 013120 WCR 001064 
BIT6 = 000100 END 013132 NPRRDY 011012 Ss 001326 WRONG1 007 
BIT? = 000200 END1 013216 001146 SWREG 000176 WRONG2 007510 
BIT8 = ENTRY 020300 007514 SwT 112600 XBA16 = 000020 
BIT9 = G01 ERRCHK 010246 NSTAT 006132 SWT2 412760 XBAT7 = 
001144 ERRCNT 001246 NXTBRD 013260 TBLEDT 020100 XCHKBU 023410 
020114 ERRDO 006534 OFL 015370 EMP 01.1306 XINBUF 022406 
BRDSET 001656 ERRDO1 4 OK 007370 TEMPST 014134 x1 006122 
BRLEV 72 ERRMSG 017430 T 014476 TEMP2 00 310 XG 005560 
BRSTDL 020540 ER =1 OUTSWR 014573 TESTNO 001320 x5 004676 
BRWAIT 001162 ERRVEC= PASCNT 001206 TIB 014 42 X7 005740 
BUF F 022404 FLAG 200 PINV 006166 TIME 0013'2 YESCBL 010722 
BUFLEN 001156 FLIP 012314 PNTERR 001016 TkB 0011, 2 YESMBD 017452 
= FL 012446 PNTPAS 001014 TKS 00117 ' $BELL 001 
CABLE 001314 FNCCNT 001202 PNTRAD 001010 TKVEC = 000060 SCHARC 015710 
CARLF 014567 FNCT1 = 000002 PNTVAD 001012 TNPRO 3011174 SCNTG 014552 
CBL 010622 FNCT2 = PRGCYC 001020 TNPR1 = =©010770 SCNTLG 0166 
CHKA 007764 FNCT3 = 000010 PRINT 013314 TPB 001176 SCNTLU 01 
CHKBFF 007752 = 00000 PROMPT 017464 TPS 001174 SCNTS 014560 
CHKBUF 001154 T = 104000 PRTIBL 017626 TRAPVE= 009034 SCRLF 001351 
CKBAR 002116 HLTDET 001316 PRTF IN TSTRDY 005534 K 016356 
CKBDR 002142 000011 PS 001002 TTIN 014500 SDTBL 6346 
CKCSR ICOUNT 014122 P3INT 005720 TTIN1 014520 NDAD 013250 
CKDRIN 002154 IE 000100 P3INV 005624 TTIN2 014534 SENPAS 014622 
002170 INBUF 001152 P7ERR 006100 TTOUT 015372 VENULL 001354 
CKFIN 0023 INBUF1 001204 P7INV 006010 TYPDS = 104405 S ILLC 00134 
CKSWR 8014144 INCBA 004652 QTYBRD 001022 TYPE = 104401 SFALLS 001341 
CKWCR 002104 INCDB 005406 RDCHR = 104406 TYPOC = 104402 = 
CNTLU 014250 INCWC 004622 RDDEC = 104411 TYPON = 104404 SHIO"T 017174 
010132 INNEW 014603 RDLIN = 104407 TYPOS = 104403 F 00 
COMPRR 010214 INTA 010016 RDOCT = 104410 TISTR 002070 SMNEW 01 
CONTIN 013760 INTB 011114 RDS 014140 2 004250 SMSWR 1 
CORRCT 020 INTC 011304 RDYCHK 001166 Te 004372 SNULL 00 
COUNT 014136 LDEXIT 007750 READY = 000200 13 002414 SOCNT 01 
CPUE 002 LENCHK 001160 REGADR 001024 133 010744 SOMODE 01 
CR = 000015 LEVEL 023412 RETURN 014126 T33CLR 011164 SQUES 00 
CRLF = 000200 LF = 000012 RSET 007504 T33STR 010764 SQUEST 01 
CSR 001070 LOAD 001712 RUNPRG 017574 T34CLR 011354 SRDCHR 01 





CZDRLAO=DR11W GEN NPR INTFC MACRO M1111 24-SEP-79 10:39 PAGE 85-3 
SYMBOL TABLE 


SEQ 0106 


= 160000 $TPS 001334 $TYPE 015474 SOFILL 016137 

SROLIN 016506 STITLE 014646 $TRAP_ 01717 STYPEC 015644 «EMPTY 015416 

T K 001332 $TRAP2 017220 $TYPEX 015712 «REST 015462 

$RDSZ = 000007 $TKS 001330 $TRP = 00001 $TYPOC 015740 -RET 015446 

SREAD 014306 $™N = 000001 $TRPAD 017232 $TYPON 015754 «RETR 015470 

SSETUP= 000004 $TPB 001336 STTYIN 016614 $TYPOS 015714 . SAV 021402 
$STUP = 177777 STPFLG 001343 $TYPDS 016142 


- ABS. 023414 
000000 001 
ERRORS DETECTED: 0 


tanh | MEMORY USED: 20701 WORDS ( 81 Weciae 
NAMIC MEMORY: 20746 WORDS ( 79 PAGES 

ELAPSED TIME: 00:02:15 

DR11W,DR11W=SYSMAC .MLB/ML ,DR11W.P11 


